EXCEL VBAのコードを見て頂けませんか、他

質問

いつもお世話になっております。

EXCEL2000でデータベースを作成すべく、ここで何度も質問をさせていただきながら、ようやく目標に近づいてきました。

ここで、相談・お願いさせていただきたいことは２件あります。(欲張りですみません。)

３点のうち、いずれかでも結構です、何かアドバイスとなるものを頂ければ幸いです。

(1)質問１・依頼１・・・INPUTシートで写真のファイル名をR36：AC36、及び AT36：BE36に入力し、レコードを変化させると、自動で写真も変化するはずなのですが、変化しません。なぜかファイル名入力セルをダブルクリックすると、ようやく写真が変化します。どのようにコード修正すれば、写真が自動で変化するでしょうか？

(2)質問１・依頼１・・・INPUTシートのPrivate Sub CommandButton5_Click()　イベントで、クリヤーコンテンツを大量（ D81:G81, H81:K81, L81:O81, P81:S81, T81:W81, X81:BE81, D82:G82, H82:K82, L82:O82, P82:S82, T82:W82, X82:BE82, D83:G83, H83:K83, L83:O83, P83:S83, T83:W83, X83:BE83, D84:G84, H84:K84, L84:O84, P84:S84, T84:W84, X84:BE84, D85:G85, H85:K85, L85:O85, P85:S85, T85:W85, X85:BE85, D86:G86,・・・・）に設定したいのですが、そうするとエラーになります。どういったコードに修正すればいいでしょうか？

また、その他全般を通して至らぬ部分が多いと思いますが、コードの基本的なご指導・アドバイスもいただけるとありがたいです。よろしくお願いいたします。

ぶしつけな依頼で申し訳ございません。どうかよろしくお願いいたします。

回答No.1

kumano_SEC · ベストアンサー

（1）については、「レコードを変化させると・・」の処理が見えません、実コードを書いて頂ければ・・。
（2）の大量の区切られた範囲の指定についてですが、エクセルの機能の「名前」を使用してはどうでしょうか？
・範囲に名前を付ける
　範囲指定をし画面左上の名前指定部に任意の名前を付け(例えば「消去エリア」など)
　RANGE("消去エリア").select:Selection.ClearContents
　とする。

お礼

kumano_SEC様

このような漠然とした質問にアドバイス頂き、ありがとうございました。名前を使用するほうほうで、うまく対応できそうです。参考になりました。ありがとうございます。

回答No.2

imogasi

（２）について
こういう列挙する以外はこれらのセルを特定する方法はないのか。それらのセルの特徴（位置や内容で）などで。
ーー
難しい言葉を使っているがクリアーコンテンツって何？。セルの内容（数式と値に限り）を消すということか？
＞エラーになります
エラーはセル（または引数）の数が多すぎるエラーか？
その部分はＲａｎｇｅ（"81:G81"・・になっているのか。前後を含めて、正確に質問に書くこと。
Sub test01()
For Each cl In Range("A1:A3,B1:B3,D2:D6")
cl.ClearContents
Next
End Sub
Sub test02()
'Range("A1:A3,B1:B3,D2:D6").Select
'Selection.Clear 'OK
'Selection.ClearContents 'OK
Range("A1:A3,B1:B3,D2:D6").ClearComments 'だめ
End Sub
のように色々あるようだから。
＞ここで何度も質問をさせていただきながら
一続きであれば、参考までに、前質問の番号など書いて置くのも、読者に参考になろう。
でなければ、質問に書く必要なし。

お礼

imogasi様

回答ありがとうございます。そして説明不足で申し訳ございません。ご指摘頂いた内容はごもっともなものだと思います。

もともと、手っ取り早く見てもらうために、実ファイルをアップロダーにあげさせていただいていたのですが、そこの文面が丸々 消えてしまっていました。（おそらく消されてしまったようです。）

また出直します。