2020年7月31日 / 最終更新日時 : 2020年7月31日 mio_pcsupport EXCEL ブックを開くときにコンボに値を設定（EXCEL VBA） ThisWorkbook のソースに「開く時」イベントとして記述 Private Sub Workbook_Open() Dim i As Long End Sub
2020年7月31日 / 最終更新日時 : 2020年7月31日 mio_pcsupport EXCEL EXCEL VBA コンボ選択時 指定列まで非表示にして印刷範囲も再設定する EXCELで横長に月次の明細等、履歴を残してゆく場合、印刷範囲が何ヶ月分と決まっている場合、必要な箇所のみ表示して、古い履歴列を非表示にしたい場合がある。 コンボ選択時に、非表示列を指定して、列を非表示にし、それと同時に […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォームの合計値で、レコードがない時 「NULL」か「エラー」か サブフォームのフォームフッタに合計値を求めるテキストボックス「合計値」を配置して、それを親フォームから参照する場合、「合計値」がエラーの場合に「0」にするか、ＮＵＬＬの場合に「0」にするか、使い分ける必要がありそうである […]
2020年7月30日 / 最終更新日時 : 2020年11月22日 mio_pcsupport ACCESS ACCESS 「台帳」等でコンボで「年」「月」「会社」選択時にレコード追加 「台帳」で「年」「月」「会社」の3つをキーとする場合、「年」「月」があらかじめ入っていて、「会社」を選択したときに、「台帳」の新規レコードが追加されるようにするモジュール「Add_Nengetu_Com」を自作 すでに同 […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォーム 新規行追加時に自動的に行番 サブフォーム（ダイナセット）で、末尾の新規追加行の編集を開始したときに、行番フィールドに自動的に採番したい場合は、フォームの「挿入前」イベントを使う。 Private Sub Form_BeforeInsert(Canc […]
2020年7月30日 / 最終更新日時 : 2020年7月30日 mio_pcsupport ACCESS ACCESS サブフォーム 行挿入して行番号振り直す サブフォームで、下に行を挿入したいレコードを選択して「行挿入」ボタンを押したときに、行が挿入されて、行番号を上から振り直すために必要なモジュール。 注意すべきは、行番号フィールドを倍精度浮動小数点型にしておくこと。 Pr […]
2020年7月22日 / 最終更新日時 : 2020年7月22日 mio_pcsupport EXCEL EXCEL セル 値のコピー Worksheets(“Sheet1”).Range(“A1”).Copy Worksheets(“Sheet2”).Range(“C2 […]
2020年7月21日 / 最終更新日時 : 2020年11月22日 mio_pcsupport EXCEL EXCEL 別シートへのセルコピーで「cells」「range」プロパティの問題 EXCEL で、別シートへのセルコピーをする際には、「Cells」「Range」プロパティの挙動の違いに注意すること。 コピー元がアクティブシートでない場合、「Cells」プロパティを使ったセル範囲の指定は、エラーを発生 […]
2020年7月21日 / 最終更新日時 : 2020年7月21日 mio_pcsupport EXCEL EXCEL 入力された最終行（列に空白も含む場合）を取得 EXCEL 入力された最終行（列に空白も含む場合）を取得するには A列の場合、 Cells(Rows.Count, 1).End(xlUp).Row となる。「1」はA列の意味。Bれつならば「2」になる。 Rows.Co […]