これからの暮らしのためにできること。１．資格<What can I do for a future?>

VBA code 画像の一斉貼り付け

Sub 画像一斉貼り付け()Dim top As Long’入力位置のスタート地点Dim objFile As Object’高速化のためDim objFldr As VariantDim spanStr As StringDim span As Long’画像の感覚を決めているDim dlg As FileDialogDim folderPath As String’貼り付けデータの取得に使うDim

2023/05/31 02:31

VBA code ヒストグラム系

Sub ヒストグラムの編集()'' ヒストグラムの編集 Macro''Dim i As LongDim EndCol As LongDim trgtSht As StringDim trgtCol As StringtrgtSht = InputBox("ヒストグラムを作成したいシート名称を入力してください")trgtCol = InputBox("貼付け先のセルの列をアルファベット

2023/05/30 07:00

VBA code 行の追加

Sub MultiInsrtRow()    Dim InsrtEndRow As Long    Dim InsrtRow As Long    Dim i As Long    Dim AddCnt As Long                AddCnt = InputBox(Prompt:="追加する行数を入力してください。", Default:=1)        With ActiveSheet     

2023/05/29 06:22

VBA code エクセル グラフ X軸変更

Sub changeGraphScale()    Dim cht As ChartObject    For Each cht In Selection'        MsgBox cht.Name        cht.Chart.Axes(xlCategory).MinimumScale = 0    'x軸の最小値を変更        cht.Chart.Axes(xlCategory).MaximumScale = 10   'x軸の

2023/05/28 01:32

VBA code データの抽出_閾値30

Sub データの抽出_閾値30()        Dim trgtColumn As Long    Dim EndRow As Long    Dim strFlg As String, sngTol as single    Dim i As Long            Cells(92, 3).Activate    trgtColumn = ActiveCell.Column    EndRow = ActiveCell.End(x

2023/05/27 09:03

VBA code データの桁数統一

’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Option ExplicitSub ChangeOrder()    Dim strTemp As String Dim strOrder as string     strOrder = inputbox("桁数を入力してください。例：0.000", default:=0.000"    strTemp = Format(Selection.Value, st

2023/05/26 08:01

VBA code グローバル変数（新しいシートの作成、開始行と終了行の決定、まとめシートへの転記、数式の入力、まとめシートの体裁調整、データ範囲の作成、頻度関数の入力）

最近覚えたこととしては、Global変数これを使えると変数の共有が便利です！！Option ExplicitPublic StrtRow As Long, EndRow As Long, EndCol As LongPublic slctRow As Long, slctCol As LongPublic lngRow As Long, lngCol As Long, j As LongPublic SrcWs As String, Dst

2023/05/25 07:24

VBA code 絶対参照⇒相対参照 VBAコード 例

久しぶりの投稿です緊張しますね(;´∀｀)さて覚書続きですSub 絶対参照⇒相対参照()'' 絶対参照⇒相対参照 Macro''    '円相当径の相対参照化    Range(Cells(3, "B"), Cells(3, "B").End(xlToRight)).Select    Selection.Replace What:="$", Replacement:="", LookA

2023/05/24 14:53