プログラミング学習メモ -15ページ目

プログラミング学習メモ -15ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

10Jan
- VBA　テーブル（ListObjects）の設定・解除
  テーブルに設定Sub test() ' テーブルに設定 Dim ws As Worksheet Set ws = ActiveSheet Dim tbl As ListObject Set tbl = ws.ListObjects.Add(xlSrcRange, ws.Range("B3").CurrentRegion, xlYes) tbl.Name = "テーブル1" tbl.TableStyle = "TableStyleMedium3"End Subテーブルを解除Sub test2() ' 単独テーブルを解除 Dim ws As Worksheet Set ws = ActiveSheet ws.ListObjects(1).TableStyle = "" ws.ListObjects(1).UnlistEnd SubSub test3() ’　シート内テーブル解除 Set ws = ActiveSheet Dim ls As ListObject For Each ls In ws.ListObjects ls.Unlist Next lsEnd SubSub test4() ’　ブック内全テーブル解除 Dim ws As Worksheet For Each ws In Worksheets Dim ls As ListObject For Each ls In ws.ListObjects ls.Unlist Next ls Next wsEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA テーブル（ListObjects）の基本操作』テーブルの有無確認Sub test() 'テーブル有無確認 Dim WS As Worksheet Set WS = Act…ameblo.jp『VBA　テーブル（ListObjects）の設定・解除』テーブルに設定Sub test() ' テーブルに設定 Dim ws As Worksheet Set ws = ActiveSh…ameblo.jp『VBA　テーブル（ListObjects）行の削除』特定の行を削除するSub test() ’　3列目”A”となるデータを削除 With Range("A1").ListObject.DataB…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp『VBA　テーブル（ListObjects）指定値以上赤文字にする』テーブル（ListObjects）指定値以上赤文字にするSub test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp
01Jan
- 新年おめてとうございます。
  2023年もプログラミングを通して、一緒に強くなりましょう。どうぞよろしくお願いいたします。
27Dec
- VBA テーブル（ListObjects）の基本操作
  テーブルの有無確認Sub test() 'テーブル有無確認 Dim WS As Worksheet Set WS = ActiveSheet If WS.ListObjects.Count > 0 Then MsgBox "テーブルあり" End IfEnd Subテーブルの個数確認Sub test2() 'テーブルの個数確認 Dim WS As Worksheet Set WS = ActiveSheet Dim xlCnt As Integer xlCnt = WS.ListObjects.Count If xlCnt > 0 Then MsgBox "テーブルが" & xlCnt & "個あります" End IfEnd Subテーブル名を取得Sub test3() 'テーブル名を取得 Dim WS As Worksheet Set WS = ActiveSheet If WS.ListObjects.Count > 0 Then MsgBox WS.ListObjects(1).Name End IfEnd Sub実行結果参考記事『VBA テーブル（ListObjects）の基本操作』テーブルの有無確認Sub test() 'テーブル有無確認 Dim WS As Worksheet Set WS = Act…ameblo.jp『VBA　テーブル（ListObjects）の設定・解除』テーブルに設定Sub test() ' テーブルに設定 Dim ws As Worksheet Set ws = ActiveSh…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp『VBA　テーブル（ListObjects）指定値以上赤文字にする』テーブル（ListObjects）指定値以上赤文字にするSub test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）行の削除』特定の行を削除するSub test() ’　3列目”A”となるデータを削除 With Range("A1").ListObject.DataB…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
20Dec
- VBA デスクトップのパスを取得
  実務では、ユーザのデスクトップのパスを取得する場面があります。今日は、デスクトップのパスの取得方法を見て見ましょう。デスクトップのパスを取得Sub test()' デスクトップのパスを取得' 「ツール」→「参照設定」→「Windows Script Host Object Model」をつけることが必要 Dim myShell As New IWshRuntimeLibrary.WshShell Dim myPath As String myPath = myShell.SpecialFolders("Desktop") MsgBox myPathEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事
13Dec
- VBA 配列で不揃いの「株式会社」を統一する
  実務では、株式会社など意味同じの文字列が多数の形式があって、それを揃うには割りと時間がかかります。今日は、配列でそれを一括統一方法を見て見ましょう。配列で不揃いの株式会社を統一するSub test() '　配列で不揃いの株式会社を統一する Dim i As Long Dim kabu, s Dim myN As String i = 4 Do myN = Cells(i, "A").Value kabu = Array("（株）","（株", "株）", "㈱", ChrW(&H337F), ChrW(&H3291), ChrW(&H33CD)) For Each s In kabu myN = Replace(myN, s, "株式会社", , , vbTextCompare) Next Cells(i, "B") = myN i = i + 1 Loop While i <= 11End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA For Eachステートメント』　For Eachステートメントとは、配列やコレクションなどのグループの各要素に対して繰り返し処理を行う場合に使用します。For Nextのように、個別に呼び…ameblo.jp『VBA 繰り返し処理（Do Loop）』繰り返し処理Do Loop（条件満たす時実行）構文Do [{ While /Until } 条件式]　　処理Loop前回以前紹介したFor Next（比…ameblo.jp『VBA 文字列の置き換え　Replace関数』文字列の一部を置換するには、Replace関数がよく使われます。きょうは、その基本的な使い方を見てみましょう。文字列の置き換え(Replace関数)構文R…ameblo.jp『VBA 主要VBA関数』VBA関数は、Visual Basicで用意されている関数が元となっていてVBAで使う関数のことです。これに対して、ワークシート関数は、Excelのワークシ…ameblo.jp
06Dec
- VBA　変更履歴を隣セルに保存する
  実務上、セル変更履歴を求められる場面があったりします。今日は、変更履歴を隣セルに残す方法を見てみましょう。変更履歴を隣セルに保存するPrivate Sub Worksheet_Change(ByVal Target As Range) ' 特定セル以外の場合、イベント起動せずにする If Application.Intersect(Target, Range("B4", "B10")) Is Nothing Then Exit Sub ' 変更セルが2以上ある場合 If Target.Count <> 1 Then ' イベントを一旦無効にする Application.EnableEvents = False ' ユーザの操作を１つ戻す Application.Undo MsgBox "2以上のセルは変更できません。", 16 ' イベントを有効にする Application.EnableEvents = True Exit Sub 'イベントを終了する End If ' イベントを一旦無効にする Application.EnableEvents = False Dim xlAfter As Variant '変更後の値を格納 xlAfter = Target.Value Dim xlChange As Range '移動後セル ' 移動後セルをアクティブにする（動きを自然にする） Set xlChange = ActiveCell ' ユーザの操作を１つ戻す Application.Undo '　履歴をとなりセルに保存 Target.Offset(0, 1).Value = Target.Value ' 移動後の値を設定する Target.Value = xlAfter ' 移動後のセルに戻す xlChange.Select 'イベントを有効にする Application.EnableEvents = TrueEnd Subコードの入力先は、いつもの標準モジュールではなく、VBE画面なか「Sheet1(sheet1)」をクリックし、右のコード欄に入れてください。実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　ダブルクリックしたら会社名を自動入力』ダブルクリックしたら自動入力Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,…ameblo.jp
29Nov
- VBA　連動する入力規則
  連動する入力規則Sub test() ' 連動する入力規則 Call XLName '名前の定義を呼び出す Range("A5:A11").Validation.Delete With Range("A5:A11").Validation .Delete .Add Type:=xlValidateList, Formula1:="=Sheet1!$F$5:$F$11" End With 'エラー防止で仮設定 Range("A5:A11") = "普通預金" With Range("B5:B11").Validation .Delete .Add Type:=xlValidateList, Formula1:="=indirect(A5)" End With Range("A5:A11") = ""End Sub名前の定義Sub XLName()' 名前の定義 Dim xlNam As Name ' エラーになったら無視して次進む On Error Resume Next For Each xlNam In ActiveWorkbook.Names xlNam.Delete Next With ThisWorkbook.Names .Add Name:="普通預金", RefersToLocal:="=Sheet1!$G$5:$H$5" .Add Name:="旅費交通費", RefersToLocal:="=Sheet1!$G$6:$I$6" .Add Name:="通信費", RefersToLocal:="=Sheet1!$G$7:$I$7" .Add Name:="消耗品費", RefersToLocal:="=Sheet1!$G$8:$I$8" .Add Name:="水道光熱費", RefersToLocal:="=Sheet1!$G$9:$I$9" .Add Name:="支払手数料", RefersToLocal:="=Sheet1!$G$10:$H$10" .Add Name:="交際費", RefersToLocal:="=Sheet1!$G$11:$H$11" End With '　エラー処理ルーチンを無効にする On Error GoTo 0End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp『VBA　セル範囲に名前の定義をする』　実務では、ミス防止や入力時間短縮などのため、セル範囲に名前を定義することがよくあります。今日は、VBAで名前の定義をみてみましょう。セル範囲に名前の定義を…ameblo.jp『VBA　名前定義一覧の取得』名前の定義の設定Sub test()　’名前の定義を設定 Sheets(1).Range("E1:G10").Name = "test" S…ameblo.jp『VBA　名前定義の一括削除』名前の定義の削除Sub test()　’名前の定義の削除　’　test1という名前を定義 Sheets(1).Range("E1:G10").N…ameblo.jp
21Nov
- VBA　二次元配列をセルに代入する
  二次元配列をセルに代入Sub test() ' 二次元配列をセルに代入する Dim myArray1 As Variant Dim myArray2 As Variant Dim i As Long Dim j As Long myArray1 = Range("A1:F168").Value ’　配列 myArray2を再定義する ReDim myArray2(1 To 168, 1 To 6)　 For i = LBound(myArray1, 1) To UBound(myArray1, 1) For j = 1 To 6 ' 元数字に対して特定な処理をする If myArray1(i, j) < 10 Then myArray2(i, j) = myArray1(i, j) * 30 + 100 Else myArray2(i, j) = myArray1(i, j) * 10 End If Next j Next i ’　セルH１に出力する Range("H1:M168") = myArray2End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp
15Nov
- VBA　一次元配列をセルに代入する
  一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(0) = "VBA" myStr(1) = "EXCEL" myStr(2) = "OUTLOOK" myStr(3) = "WORD" Dim i As Long ' セルA１：A4に代入する For i = 0 To 3 Cells(i + 1, 1) = myStr(i) Next iEnd SubSub test2() ' 配列をセルに代入する Dim myStr(3) As String myStr(0) = "VBA" myStr(1) = "EXCEL" myStr(2) = "OUTLOOK" myStr(3) = "WORD" Dim i As Long ' セルA１：D1に代入する For i = 0 To 3 Cells(1,i + 1) = myStr(i) Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp
08Nov
- VBA　HasFormula関数で数式セルを特定
  HasFormula関数で数式セルを特定Sub test() 'HasFormula関数で数式が入っているセルを特定 Dim i As Long For i = 4 To 8 ' セルに数式が入っているならHasFormula関数の戻り値は「true」 If Cells(i, "D").HasFormula Then ' 数式が入っているセルを黄色塗りにする Cells(i, "D").Interior.Color = vbYellow End If Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA セルの操作背景色の設定』背景色の設定Sub test() ’　 A1を赤塗にする（ColorIndex） Range("A1").Interior.ColorIndex…ameblo.jp『VBA　セルの値が数値かを判定したい』セルの値が数値かを判定する構文IsNumeric(Range.value)Sub test() Dim R As Range …ameblo.jp『VBA　COUTBLANK関数で空白セル個数を取得』COUTBLANK関数で空白セル個数を取得Sub test()　’COUTBLANK関数で空白セル個数を取得 Dim myCnt As Long…ameblo.jp