NYAFRACのプロフィール
- ベストアンサー数
- 1
- ベストアンサー率
- 50%
- お礼率
- 50%
- 登録日2013/08/19
- EXCEL VBA ポップアップを表示する方法
ご質問させていただきます。 Sheet1のA2~A1701まで4桁の数字(各行で重複しない4桁の数字です)、 Sheet1のB2~B1701とSheet1のC2~C1701にはDDEで取り込んだリアルタイムデータ、 Sheet1のD2~D1701には、B2~B1701とC2~C1701のリアルタイムデータを使ってIF関数で条件判定をしてYESまたはNOを表示する関数式が入力されています。 やりたいことは、D列の条件判定でYESが表示された場合、YESが表示された行のA列の4桁の数字をポップアップで表示させることです。 このようなことはできるのでしょうか? メッセージボックスを使えば良いのかもしれませんが、当方VBA初心者のためメッセージボックスの使い方がよく分かりません。 どなたか教えていただけないでしょうか? よろしくお願いいたします。
- ベストアンサー
- hoully
- その他MS Office製品
- 回答数5
- ExcelのVBAで最終行の下にコピーする方法
ExcelのVBAについて勉強中です。 Excel2003で表から表への転記を行いたいのですが、 コードがうまく書けないため、教えていただきたいです。 やりたいこととしましては、 A1:D6のうちピンクの部分を、横一列に並べ替えながら、 F1:M6の色つきの部分(実際はより横に広くなります)に転記したいです。 ピンクの部分はその都度、値を変えて、 黄→緑→水色→青→紫・・・ と毎回マクロを実行するたびに最下行に追加できるような形にしたいです。 また、画像は同じシートに転記をしていますが、 別のシートの同様の表から同じように転記する場合、 どうコード変わるかも教えていただけましたら助かります。 自分では、下記のようなコードしか書けませんでした。 転記先の表は30列程度になる予定ですので、 出来ればシンプルなコードを教えていただきたいです。 Sub コピー() Range("B2").Select Selection.Copy Range("G2").End(xlUp).Offset(1).Select ActiveSheet.Paste End sub 分かりづらい説明かと思いますが、 よろしくお願いします。
- ベストアンサー
- bouheur
- その他MS Office製品
- 回答数3