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

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

ホームピグアメブロ

芸能人ブログ人気ブログ

20Mar
- VBA　セルの値を一元配列に格納
  セルの値を一元配列に格納Sub test()　'　セルの値を一元配列に格納 Dim shiten(1 To 4) As String shiten(1) = Range("A1").Value shiten(2) = Range("A2").Value shiten(3) = Range("A3").Value shiten(4) = Range("A4").Value ' 　別セルに出力（一列縦で表示するならループなどが必要） Range("C1:F1").Value = shitenEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA　配列で表の行列を入れ替える』配列で表の行列を入れ替えるSub test() ’　配列で表の行列を入れ替える Dim i As Long, j As Long …ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp
14Mar
- VBA ０から3までの数字を繰り返し出力
  ０から3までの数字を繰り返し出力Sub test() ' ０から3までの数字を繰り返し出力 Range("B1:B30") = "=MOD(ROW(),4)" ' 数式を値貼り付けに Range("B1:B30") = Range("B1:B30").ValueEnd Sub"=MOD(ROW(),4)"なかの４は、最大の数字３（＝4-1）を決定する要素で、それを7に変えれば、0から6までの数字を出力できます。実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
07Mar
- VBA　テーブル（ListObjects）配列でデータを貼り付ける
  テーブル（ListObjects）配列で最終行へデータを貼り付けるSub test() ’　配列でデータを貼り付ける Dim Arry Arry = Range("E6").CurrentRegion With Range("A1").ListObject .ShowTotals = False Dim n As Long n = .ListColumns(1).Range.Count + 1 .Range(n, 1).Resize(UBound(Arry, 1), UBound(Arry, 2)) = Arry .ShowTotals = True End WithEnd 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 test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
28Feb
- VBA　テーブル（ListObjects）へデータを貼り付ける
  テーブル（ListObjects）へデータを貼り付けるSub test() ’　テーブルへデータを貼り付ける With Range("A1").ListObject .ShowTotals = False Dim n As Long n = .ListColumns(1).Range.Count + 1 Range("E6").CurrentRegion.Copy .Range(n, 1) .ShowTotals = True End WithEnd 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 test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
21Feb
- VBA　テーブル（ListObjects）テーブルの並べ替え
  テーブルの並べ替え（昇順）Sub test() ’　テーブルの並べ替え（昇順） With Range("A1").ListObject '「3」列目を、昇順にソート .Range.Sort key1:=.ListColumns(3).Range, order1:=xlAscending, Header:=xlYes End WithEnd Subテーブルの並べ替え（降順）Sub test() ’　テーブルの並べ替え（降順） With Range("A1").ListObject '「3」列目を、降順にソート .Range.Sort key1:=.ListColumns(3).Range, order1:=xlDescending, Header:=xlYes End WithEnd 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 test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
14Feb
- VBA　テーブル（ListObjects）データの有無判定
  テーブルにデータが無いとき、つまり見出しのみの状況で、データを追加した場合、下図のようにテーブルがおかしくなります。それを防ぐため、データ追加する前に、テーブルは空っぽかを判断することが必要になります。テーブル（ListObjects）データの有無判定Sub test() ’　データの有無判定 If Range("A2").ListObject.DataBodyRange Is Nothing Then Debug.Print "テーブルにデータがないです" Else Debug.Print "テーブルにデータがあります。" End IfEnd Subこの場合、データがないことを判明した場合、まず、テーブルを解除してから、データを追加します。そこから、再びテーブルの設定をしておけば、綺麗なテーブルを作成できます。参考記事『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― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
07Feb
- VBA　テーブル（ListObjects）データを追加する
  テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListObject .ShowTotals = False Dim n As Long n = .ListColumns(1).Range.Count + 1 .ListColumns(1).Range(n) = "田中" .ListColumns(2).Range(n) = "S009" .ListColumns(3).Range(n) = "67" .ShowTotals = True End WithEnd 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）行の削除』特定の行を削除する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― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
31Jan
- VBA　テーブル（ListObjects）指定値以上赤文字にする
  テーブル（ListObjects）指定値以上赤文字にするSub test() ’　 With Range("A1").ListObject .DataBodyRange.AutoFilter 3, ">=75" .ListColumns(3).DataBodyRange.Font.Color = vbRed .DataBodyRange.AutoFilter 3 End WithEnd 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）行の削除』特定の行を削除する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― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
24Jan
- VBA　テーブル（ListObjects）のフィルター設定・解除
  テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Range("A1").ListObject.ShowAutoFilter = FalseEnd SubSub test2()　　'テーブル（ListObjects）のフィルター設定　　Range("A1").ListObject.ShowAutoFilter = TrueEnd SubSub test2B()　　' シートのフィルター設定・解除（一番シンプル）　　Range("A1").AutoFilterEnd Sub実行結果テーブル（ListObjects）のフィルター矢印表示・非表示Sub test3()　　'テーブル（ListObjects）のフィルター矢印非表示　　Range("A1").ListObject.ShowAutoFilterDropDown = FalseEnd SubSub test4()　　'テーブル（ListObjects）のフィルター矢印表示　　Range("A1").ListObject.ShowAutoFilterDropDown = TrueEnd 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）行の削除』特定の行を削除するSub test() ’　3列目”A”となるデータを削除 With Range("A1").ListObject.DataB…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）指定値以上赤文字にする』テーブル（ListObjects）指定値以上赤文字にするSub test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
17Jan
- VBA　テーブル（ListObjects）行の削除
  特定の行を削除するSub test() ’　3列目”A”となるデータを削除 With Range("A1").ListObject.DataBodyRange .AutoFilter 3, "A" .EntireRow.Delete .AutoFilter 3 End WithEnd 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）のフィルター設定・解除』テーブル（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