お奨め本の目次を見るだけでも勉強になったり
＜Excel 隣のシートを参照して逃げる＞
こんにちは、 メルマガ発行中の三流プログラマーＫｅｎ３です。 今回は、 意外な解決方法のメールを貰ったので、 チョット発行してみます。 いつものセリフで、そんなたいしたことじゃないので今回もご安心を。 /* * １. いつもの前置き */ 前回の Excel セルに名前を付けて使用する で、 セルに名前を付けて、 Sub Macro1() Range("単価") = 20 End Sub とか使えるよ、使ってね。 と やりました。 応用すると、変更の少ないプログラム書けるよ なんて言ってましたね。 In message "[VBAで楽しく No.013] - Excel セルに名前を付けてみる", >ＡｃｃｅｓｓからＥｘｃｅｌファイルを開いて、データをセット >セット位置は、 >ID・・・・・・セルB4 >Name・・・・・セルC4 >Address ・・・セルB6 >TEL ・・・・・セルD7 >にセットする。 詳細は、 /vba/backno/vba013.html から参照可能です。 In message "[VBAで楽しく No.013] - Excel セルに名前を付けてみる", >一行目にタイトル行を追加したい >と >客先から依頼が来ました。 > >そしたら、アナタの修正手順は？どんな感じですか？ > >Excel TYPE.xlsを開いて、一行挿入して、タイトル入力後に上書き保存、 >Ａｃｃｅｓｓ側のセット処理は、 > oApp.Range("B4").Value = Me![ID] > oApp.Range("C4").Value = Me![Name] > oApp.Range("B6").Value = Me![Address] > oApp.Range("D7").Value = Me![TEL] >を > oApp.Range("B5").Value = Me![ID] > oApp.Range("C5").Value = Me![Name] > oApp.Range("B7").Value = Me![Address] > oApp.Range("D8").Value = Me![TEL] >と >セット位置を＋１すれば修正完了でしょ。 >チョロイ修正でしたね。 上記の単純にＡｃｃｅｓｓ側で、データセットのセル位置を修正する方法 と 下記のＥｘｃｅｌ側でセルに名前を付けておき、Ａｃｃｅｓｓ側は無修正 勝手にＥｘｃｅｌファイルを自由に修正できるよ。 In message "[VBAで楽しく No.013] - Excel セルに名前を付けてみる", >Ｅｘｃｅｌでセルに名前を付けてると、 >一行挿入しても、名前の位置は相対的に移動するので、 >Access側の > '*2 Range(セルに付けた名前).Value ="XXXX" でデータをセットする > oApp.Range("ID").Value = Me![ID] > oApp.Range("氏名").Value = Me![Name] > oApp.Range("住所").Value = Me![Address] > oApp.Range("電話番号").Value = Me![TEL] >は、変更無しでそのままでＯＫなんですよ。（これホント！） なんて、書いてました。 /* * ２．ある読者から意外な方法のメールをいただく。 */ Ａｃｃｅｓｓ側は無修正 勝手にＥｘｃｅｌファイルを自由に修正できるよ。 に対して、 ある読者から意外な方法のメールをいただきました。 なんて、いつものようにヒッパッタケド、 たぶんみんな知ってる方法で、 シートを隣にコピーして、 タイトルやフォーマットを変更する。 変更された位置に隣の元シートを参照する式を入れる。 =Sheet1!$B$4 みたいに、隣を参照する。 このファイルを保存して次回から使うとＯＫなんだってさ。 （テストファイルどうもです、参考になりました、盲点？かなぁ。 あと、メルマガ上でお礼を言われると恥ずかしいかな？それともうれしいかなぁ？） へぇ〜 この方法でも、 Ａｃｃｅｓｓ側が、B4にデータをセットしても、 隣から=Sheet1!$B$4と参照するからＯＫなんですね。 ＊まぁ、必要無いシートが残ってしまうけどね。(最後の抵抗、、、) データの流れは、 Ａｃｃｅｓｓでボタンが押される。 フォームの値を開いたＥｘｃｅｌシートＢ４にセットされる。 と、同時に隣のシートで=Sheet1!$B$4と参照するから なるほどねぇ、これもプログラムを修正しない手かぁ。 この方法を送ってくれた 自称三流事務員さんは、 Ｅｘｃｅｌで作業をしていると、 Ａ社向けフォーマット、Ｂ社向け・・・Ｆ社向け と 同じ項目を違う書式で印刷しているので、 =シート!セル番地（=Sheet1!$B$4） でいつも小細工してるんだって。 すごい、使える一流事務員さんだよ じなくって、 Ｅｘｃｅｌの豊富な機能を使って工夫して処理することも重要かなぁ。。。 と ふと思いました。 掲示板 : http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi やメールで気軽に意見やこんな方法など書いてくれるとうれしいです ＊何も出ないけど（笑）、中にはキビシイ書き込みも掲示板にあったけど、 がんばってやっていきますか。 /* * ３．勝手にプログラムの話へ */ 今までの流れをふまえ、プログラム系の話に強引に持って行く。 Ａｃｃｅｓｓフォームの値をＥｘｃｅｌにセットする 処理を少し工夫して下記のようにしてみる。 In message "[VBAで楽しく No.013] - Excel セルに名前を付けてみる", >ＡｃｃｅｓｓからＥｘｃｅｌファイルを開いて、データをセット >セット位置は、 >ID・・・・・・セルB4 >Name・・・・・セルC4 >Address ・・・セルB6 >TEL ・・・・・セルD7 >にセットする。 これを、 ID・・・・・・シート名DATAのセルA1番地 Name・・・・・シート名DATAのセルA2番地 Address ・・・シート名DATAのセルA3番地 TEL ・・・・・シート名DATAのセルA4番地 に変更する。 Ｅｘｃｅｌ側では、実際の表を =DATA!A1 =DATA!A2 =DATA!A3 =DATA!A4 と参照設定して表を作成する。 これなら、Ａｃｃｅｓｓからのデータセット処理も変更無く、 Ｅｘｃｅｌ側では自由にフォーマットが作成でき、 また、複数のＸＸ社向けフォーマットにも対応可能となる。 客先からフォーマット変更を頼まれても、 イヤな顔をしないで、対応できますね。 （おいおい、それは別問題でどんな時もイヤな顔するのはマズイって） また、客先の人が少しできる人なら、 データはＡｃｃｅｓｓからセットされるので、 自由にシートを追加して、活用して下さい。 なんて、少しカッコつけた会話が可能かなぁ。 /* * ４．終わりの挨拶 */ 今回は、Ｅｘｃｅｌ使いの事務員さんから 別な角度のメールをいただいたので、 少し書いてみました。 プログラム同様、いろいろな方法があるんだなぁ と 思いました。 拾い読みして、 １つでも何かの参考となれば幸いです。 発想力を磨こうとあらためて思った、三流プログラマーＫｅｎ３でした。
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |