指定列挿入と削除

VBA

Sub 列挿入() Dim a, b, i As Long '-----------------------------a = 19 '←列最後b = 3 '←列最初'----------------------------- For i = a To b Step -2 '列最後から2列固定の1列挿入 Columns(i).Insert Next End Sub

2020-01-30

エクセル縦のデータを横に（同一項目縦から横列へ）

VBA

必要に迫られて。。。＜コード＞ Sub 同一項目縦から横列へ() Dim i1, i2 As Range Dim oj1, oj2 As String 'コードスタート位置 Set i1 = Range("A1") '展開位置 Set i2 = Range("g1") '同一項目縦から横列へ Do Until i1.Value = "" If oj1 = "" Then oj1…

2020-01-29

複数シートからデータを条件付き抽出したい

VBA

[複数シートからデータを抽出] ブック内の複数シートから、条件に合った検索値Dataを集結したい場合。 ※複数シートは同じフォーマット前提です。 ※下記コードは、A1～Dataがある場合なので、そうじゃない場合は変更必要です。＜コード＞ Sub 複数シートから…

2020-01-28

月の第何週目かを調べる方法です。

VBA

＜考え方＞ WEEKNUM関数を使えば、OK。 ※週の基準は、日曜日スタートは１、2は月曜日スタートになります。あとは、必要に応じて＜コード＞ Sub 日付input後､週を返す() Dim input1 As Date, input2 As String Do input1 = InputBox("日付をinputして下さい…

2020-01-28

大量の任意の*.csv を一括まとめたい時。

bat_file

コピーしたい任意の*.csv を、 all.csvへ転記します。 [batファイルで作成] ファイル名は、任意につけてください(自分は、Data転記.datです）。コピー copy /b *.csv all.csv

2020-01-27

ゴミ定義となっている名前の定義リセット(削除)する♪

VBS

資料ファイルシートをコピーしようすると、見覚えのない名前定義が出てきて思うようにコピーできない時の対策。対象bookを下記のvbs(名前の管理リセット.vbs)にドロップし不要定義を削除。 '名前の管理リセット.vbs ’下記をテキストにコピーし名前の管理リ…

2020-01-26

ダブルクリックで、選択ブックコピーする

VBA

少しでも繰り返し作業を楽に。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim file1 As String, book1 As String book1 = ActiveWorkbook.Namefile1 = Application.GetOpenFilename(FILE…

2020-01-25

エクセルからmail送信つくってみた

VBA

Outlookでmail送信義務化の為、エクセルVBA送信で業務時間短縮図ります。 Sub エクセルからmail送信() Dim Olobj As Outlook.Application Dim mailobj As Outlook.MailItem Dim i1 As Integer, i2 As Integer Dim temp1 As String, temp2 As String Set Olob…

2020-01-24

選択セル値をダブルクリックでテキストに置き換え

VBA

※ニッチな作業用（自分だけかな。。。） --------------------------------------------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Tage As Range, Cancel As Boolean)ActiveSheet.Shapes.AddTextbox( _Orientat…

2020-01-23

シート名の一覧作成

VBA

Sub シート一覧作成() Dim wsht As Worksheet, i As IntegerFor Each wsht In Worksheets i = i + 1 Range("A" & i).Value = wsht.NameNext wsht End Sub

2020-01-22

VBA速度UPの呪文を入れて改善♪

VBA

Sub マクロサンプル_VBA速度UP() '最初With Application.ScreenUpdating = False.EnableEvents = False.Calculation = xlCalculationManual.DisplayAlert = FalseEnd With ’自分の作った計算式等々 '最後With Application.ScreenUpdating = True.EnableEvent…