SHOJI's Code
 仕事や趣味で書いた各種言語のプログラミングコード(エクセルVBA,PHP,C/C++/C#,JavaScript等)、その他雑記。
2018.09<<12345678910111213141516171819202122232425262728293031>>2018.11
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Officeアシスタントでちょっと遊んでみた。
Sub Ask()
rn = 1
While rn > 0
With Assistant.NewBalloon
.BalloonType = msoBalloonTypeButtons
.Heading = Sheet1.Range("A" & rn).Value
.Button = msoButtonSetYesNo
ans = .Show()
End With

If ans = msoBalloonButtonYes Then
rn = Sheet1.Range("B" & rn)
ElseIf ans = msoBalloonButtonNo Then
rn = Sheet1.Range("C" & rn)
Else
rn = 0
End If
Wend
End Sub


Sheet1のA列に質問文、B列に答えがYESの時の行番号、C列に答えがNOの時の行番号を入れておき、これを実行させるとOfficeアシスタントがこれらを質問してくれる。

テーマ:Excel - ジャンル:コンピュータ
コメント
この記事へのコメント
コメントを投稿する

管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2004-2006 SHOJI, Powered By FC2ブログ all rights reserved.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。