Excel 隣のシートを参照して逃げる

メルマガ発行内容

＜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
と参照設定して表を作成する。

これなら、Ａｃｃｅｓｓからのデータセット処理も変更無く、
Ｅｘｃｅｌ側では自由にフォーマットが作成でき、
また、複数のＸＸ社向けフォーマットにも対応可能となる。

客先からフォーマット変更を頼まれても、
イヤな顔をしないで、対応できますね。
（おいおい、それは別問題でどんな時もイヤな顔するのはマズイって）

また、客先の人が少しできる人なら、
データはＡｃｃｅｓｓからセットされるので、
自由にシートを追加して、活用して下さい。

なんて、少しカッコつけた会話が可能かなぁ。

/*
 * ４．終わりの挨拶
*/

今回は、Ｅｘｃｅｌ使いの事務員さんから
別な角度のメールをいただいたので、
少し書いてみました。

プログラム同様、いろいろな方法があるんだなぁ
と
思いました。

拾い読みして、
１つでも何かの参考となれば幸いです。

発想力を磨こうとあらためて思った、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]