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 = CreateObj…

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ネタ元 http://officetanaka.net/ex…

Public Sub sample() Dim intNo As Integer Dim strFileName As String ' テキストを出力するファイルを設定 strFileName = "C:\tmp\sample.txt" ' ファイルの書き込み intNo = FileSystem.FreeFile() ' フリーファイルNoを取得 Open strFileName For Output…

Sub Sample1() Dim tmp As Variant tmp = Split("123,田中,tanaka", ",") MsgBox tmp(0) MsgBox tmp(1) MsgBox tmp(2) End Subネタ元 http://officetanaka.net/excel/vba/tips/tips62.htm

Sub Sample05() Dim FSO As Object, TempName As String Set FSO = CreateObject("Scripting.FileSystemObject") ''新しいブックを挿入します With Workbooks.Add ''作業用ブック名を生成します With FSO TempName = .GetSpecialFolder(2) & "\" & .GetBaseN…

ActiveCell.Offset(2, 0).Activate－－＞下方向へ２つ移動 ActiveCell.Offset(0, 3).Activate－－＞右方向へ３つ移動 ActiveCell.Offset(1, 2).Activate－－＞下へ１右へ２移動 ActiveCell.Offset(-2, -1).Activate－－＞上へ２左へ１移動 ネタ元 http://www…