人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelのマクロで以下のようなことを実現したいのですが、さんざん考えた割にわからなくななってしまいました。どうぞよろしくお願い致します。
http://www.geocities.jp/yukitsun001/Book1.xls

今、sheet1のE2,F2,G2に「ボタン」を押すたびに、以下のように表示されるように
します。

★C2に「2」が代入されているとき
1回ボタンを押すと、sheet1のE2,F2,G2に
東京大泉池袋2
と表示される
もう1回ボタンを押すと、sheet1のE2,F2,G2に
志村池袋2
と表示される
以下同様
★C2に「3」が代入されているとき
1回ボタンを押すと、sheet1のE2,F2,G2に
南板橋別館池袋3
と表示される
もう1回ボタンを押すと、sheet1のE2,F2,G2に
池袋池袋3
と表示される
以下同様

つまり、sheet1のE2,F2,G2には、sheet1のC2の数値に該当するsheet2のマトリックス
の行が次々と登場するようなマクロです。

簡単かもしれませんが、どうぞよろしくお願い致します。

●質問者: yoshifuku
●カテゴリ:コンピュータ
✍キーワード:E2 Excel G2 にわか ボタン
○ 状態 :終了
└ 回答数 : 2/4件

▽最新の回答へ

1 ● きゃづみぃ
●25ポイント

http://www.hatena.ne.jp/awindow?qid=1092046906

Dim t As Integer

Dim k As String

Private Sub CommandButton1_Click()

If Cells(2, 5) <> ”” Then

’入力済み

If k <> Cells(2, 3) Then

’新規?

k = Cells(2, 3)

t = 1

End If

Else

k = Cells(2, 3)

t = 1

End If

t = t + 1

For a = t To 50

If Sheet2.Cells(a, 7) = k Then

t = a

Cells(2, 5) = Sheet2.Cells(a, 5)

Cells(2, 6) = Sheet2.Cells(a, 6)

Cells(2, 7) = Sheet2.Cells(a, 7)

Exit For

End If

Next a

End Sub

ボタンが クリックイベントに対応しなかったので、別に 貼り付けてみました。

こんなので どうでしょう?

◎質問者からの返答

ありがとう!ちょっとやってみます!


2 ● teztez
●25ポイント

http://www.hatena.ne.jp/1092046906#

Excelのマクロで以下のようなことを実現したいのですが、さんざん考えた割にわからなくななってしまいました。どうぞよろしくお願い致します。 http://www.geocities.jp/yu.. - 人力検索はてな

If Cells(2, 3) = 2 Then

If Cells(2, 5) = ”東京大泉池袋2” Then

Cells(2, 5) = ”志村池袋2”

Else

Cells(2, 5) = ”東京大泉池袋2”

End If

ElseIf Cells(2, 3) = 3 Then

If Cells(2, 5) = ”南板橋別館池袋3” Then

Cells(2, 5) = ”池袋池袋3”

Else

Cells(2, 5) = ”南板橋別館池袋3”

End If

Else

Cells(2, 5) = ””

End If

いかがですか?

◎質問者からの返答

んー、Cells(2, 3)これだと2や3以外だとだめ

なんじゃないかな?

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ