こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

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

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

(2)質問1・依頼1・・・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,・・・・)に設定したいのですが、そうするとエラーになります。どういったコードに修正すればいいでしょうか?

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

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

投稿日時 - 2011-07-31 20:57:21

QNo.6912457

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2011-08-01 01:50:09

お礼

kumano_SEC様

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

投稿日時 - 2011-08-01 21:34:42

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

(2)について
こういう列挙する以外はこれらのセルを特定する方法はないのか。それらのセルの特徴(位置や内容で)などで。
ーー
難しい言葉を使っているがクリアーコンテンツって何?。セルの内容(数式と値に限り)を消すということか?
>エラーになります
エラーはセル(または引数)の数が多すぎるエラーか?
その部分はRange("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
のように色々あるようだから。
>ここで何度も質問をさせていただきながら
一続きであれば、参考までに、前質問の番号など書いて置くのも、読者に参考になろう。
でなければ、質問に書く必要なし。

投稿日時 - 2011-08-01 10:35:36

お礼

imogasi様

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

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

また出直します。

投稿日時 - 2011-08-01 21:33:21

あなたにオススメの質問