ActiveCell.Offset(2, 0).Activate－－＞下方向へ２つ移動 ActiveCell.Offset(0, 3).Activate－－＞右方向へ３つ移動 ActiveCell.Offset(1, 2).Activate－－＞下へ１右へ２移動 ActiveCell.Offset(-2, -1).Activate－－＞上へ２左へ１移動
ネタ元
excelVBAで一時(テンポラリ)ファイル名を取得する
Sub Sample05()
Dim FSO As Object, TempName As String
Set FSO = CreateObject("Scripting.FileSystemObject")
''新しいブックを挿入します
With Workbooks.Add
''作業用ブック名を生成します
With FSO
TempName = .GetSpecialFolder(2) & "\" & .GetBaseName(.GetTempName) & ".xlsx"
End With
''挿入したブックに名前を付けて保存します
.SaveAs TempName
MsgBox .FullName & vbCrLf & "という名前で保存しました", vbInformation
End With
Set FSO = Nothing
End Subネタ元
excelVBAでstrtokの代わりはSplit関数
Sub Sample1()
Dim tmp As Variant
tmp = Split("123,田中,tanaka", ",")
MsgBox tmp(0)
MsgBox tmp(1)
MsgBox tmp(2)
End Subネタ元
excelvbaでファイルに書き込む
Public Sub sample()
Dim intNo As Integer
Dim strFileName As String
' テキストを出力するファイルを設定
strFileName = "C:\tmp\sample.txt"
' ファイルの書き込み
intNo = FileSystem.FreeFile() ' フリーファイルNoを取得
Open strFileName For Output As #intNo ' 上書きモードでファイルをオープン
Print #intNo, "ABCDE"
Print #intNo, "あいうえお"
Close #intNo ' ファイルをクローズ
End Subネタ元
excelvbaで動的配列やるならRedimだけど、中身壊したくないならPreserveつけよう
Sub Sample37()
Dim Member() As String
MsgBox "要素数を再定義します"
ReDim Member(2)
Member(1) = "tanaka"
Member(2) = "yamada"
ReDim Preserve Member(3)
Member(3) = "sato"
MsgBox "1人目は" & Member(1)
End Subネタ元
excelVBAで連想配列
Sub 支社別集計()
Dim Sheet1, Sheet2 As Worksheet
Const COL店舗CD = 1 ' 店舗CDの列
Const COL分類CD = 3 ' 分類CDの列
Const COL売上額 = 10 ' 売上額
Dim MaxRow As Long ' 最終行
Dim key As String ' 検索キー
Dim c, r As Long
Set dicT = CreateObject("Scripting.Dictionary") ' 連想配列の定義
Set Sheet1 = Worksheets("売上明細") ' 明細シート
Set Sheet2 = Worksheets("売上集計") ' 集計シート
MaxRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row ' 最終行を求める
' 売上明細を連想配列へ読み込む
With Sheet1
For r = 2 To MaxRow ' 最終行
key = .Cells(r, COL店舗CD).Value & .Cells(r, COL分類CD).Value ' 店舗CD & 分類CD
dicT(key) = dicT(key) + .Cells(r, COL売上額).Value ' 売上額
Next
End With
' 集計シートへの書き出し
With Sheet2
For c = 3 To 12 ' 列
For r = 4 To 12 ' 行
key = .Cells(2, c).Value & .Cells(r, 1).Value ' 店舗CD & 分類CD
.Cells(r, c) = dicT(key)
Next
Next
End With
End SubDictionaryオブジェクトのリファレンスはリンク先で
ネタ元
