この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。
2018年11月03日
1ページにグループをまとめる
Accessでレポートを作成していて、
グループ化したデータが
２ページにまたがってしまう。
VBAのコードを書いて、
グループフッターの位置に応じて
改ページを制御しようとしている内に
以下に気が付いた（赤矢印）
1ページにグループをまとめる機能が用意されていた！。
もっと早く気が付けばよかったのに！
でも、助かった。
グループ化したデータが
２ページにまたがってしまう。
VBAのコードを書いて、
グループフッターの位置に応じて
改ページを制御しようとしている内に
以下に気が付いた（赤矢印）
1ページにグループをまとめる機能が用意されていた！。
もっと早く気が付けばよかったのに！
でも、助かった。
2018年10月21日
Accessのサブレポート機能
Accessは20年以上使っている。
すべての機能を使ったことはないまでの
ほとんどの機能を知っているつもりだった。
サブレポートを知らなかった。
レポートの中に別のレポートを組み込める。
例えば、セミナーの受講者リストを印刷する場合、
受講者リストの見出し部分にセミナータイトルや会場名等、
セミナーの属性情報を追加できる。
これに講師リストも追加するのは
無理な話だと思っていた。
しかし、サブレポートを使えば、
簡単に受講者リストを組み込むことができた。
二つのレポートを組み合わせるのだから、
できて当たり前とも言えるが、
サブレポート機能を知らなければ
実現できていなかったと思う。
Accessに限らず、どのソフトや言語でも
よく知っているなどとは、決して思わない方がいい。
新しい発見の機会を摘みとってしまうことになりかねない。
すべての機能を使ったことはないまでの
ほとんどの機能を知っているつもりだった。
思い上がりだった！
サブレポートを知らなかった。
レポートの中に別のレポートを組み込める。
例えば、セミナーの受講者リストを印刷する場合、
受講者リストの見出し部分にセミナータイトルや会場名等、
セミナーの属性情報を追加できる。
これに講師リストも追加するのは
無理な話だと思っていた。
20年来の感激
しかし、サブレポートを使えば、
簡単に受講者リストを組み込むことができた。
二つのレポートを組み合わせるのだから、
できて当たり前とも言えるが、
サブレポート機能を知らなければ
実現できていなかったと思う。
教訓
Accessに限らず、どのソフトや言語でも
よく知っているなどとは、決して思わない方がいい。
新しい発見の機会を摘みとってしまうことになりかねない。
2018年10月19日
Excel VBAのパスワード
Excel VBAのコードに
パスワードをかけることができることを知った。
詳細な説明はこちら
https://www.relief.jp/docs/017816.html
Excelシートのパスワードとは別である。
パスワードをかけることができることを知った。
詳細な説明はこちら
https://www.relief.jp/docs/017816.html
Excelシートのパスワードとは別である。
2018年10月15日
ファイルを２つ開いていて、データが消えた！
データを削除できない
Excelを使っていて、データを削除しようとしたが削除できない。
削除したい行をもう一度選択しなおしてみたが
やはり削除できない。
「どうして」と思いつつ、
Excelを最小化したり、削除操作を何度も繰り返していると
やがて、削除できた。ホッとして保存終了した。
もう一つのファイルのデータも消えていた
このとき、Excelファイルをもう一つ開いていたのだが、
そちらを見てびっくり！
シートの一部のデータが消えている。
しかも保存されていて、操作を取り消すことができない状態。
データが消えたファイルはバックアップがないので、
復元不能！
原因は
裏側というか、もう一つのファイルでセルを選択していたために
表のファイルが操作できない状態になっていた。
何度も削除を試みている内に裏のファイルで選択していた部分が削除され、
選択が解除された。
それで、表のファイルを操作できるようになった。
と、理解している。
これからは
・重要なファイルは必ず、バックアップをとろう。
・Excelで動作がおかしいときは、
同時に開いているファイルでセルを選択していないか確認しよう。
2018年09月23日
列名を番号に変換する。
Excel VBAでセルを指定するとき、
cells は列も番号で指定する。
例：cells(行番号,番番号) cells(2,1)
しかし、列名は アルファベットなので困ってしまう。
range を使ってアルファベットを数字に変換します。
ColumnNumber = Range(ColumnName & "1").Column '列番号を取得
MsgBox (ColumnNumber) ’確認
cells は列も番号で指定する。
例：cells(行番号,番番号) cells(2,1)
しかし、列名は アルファベットなので困ってしまう。
range を使ってアルファベットを数字に変換します。
ColumnNumber = Range(ColumnName & "1").Column '列番号を取得
MsgBox (ColumnNumber) ’確認
