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

エクセル(EXCEL)で進捗管理を考えています。
横1列それぞれにひとつづつボタンをつけて、そのボタンを押すと、
ボタン内の文字列がかわる様にするのと
例:
------ ------ -----
未完了>処理中>完了
------ ------ -----
それぞれのステータスに合わせ横1列分セルの色を変化させる
関数構文を教えていただけますでしょうか。
例:
未完了(赤):処理中(黄色):完了(青)
そのままコピペできる形で教えていただけるとうれしいです。

勉強不足で申し訳ないのですがよろしくおねがいます。

●質問者: kimimi
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel ひとつ エクセル コピペ ステータス
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

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

http://www.hatena.ne.jp/awindow?

条件ですが

CommandButton1のキャプションは 未完了 や 処理中、完了 以外にしておいてください。


また、対象行は Rows(”16:16”).Select

の 16という値を 変更して調節してください。


Private Sub CommandButton1_Click()

If Not (CommandButton1.Caption = ”未完了” Or _

CommandButton1.Caption = ”処理中” Or _

CommandButton1.Caption = ”完了”) _

Then

Rows(”16:16”).Select

With Selection.Interior

.ColorIndex = 3

.Pattern = xlSolid

End With

CommandButton1.Caption = ”未完了”

End

End If

If CommandButton1.Caption = ”未完了” Then

Rows(”16:16”).Select

With Selection.Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

CommandButton1.Caption = ”処理中”

Else

If CommandButton1.Caption = ”処理中” Then

Rows(”16:16”).Select

With Selection.Interior

.ColorIndex = 5

.Pattern = xlSolid

End With

Range(”L22”).Select

CommandButton1.Caption = ”完了”


End If

End If

End Sub


2 ● suke33
●30ポイント

http://www.microsoft.com/office/community/ja-jp/default.mspx?d=1

ディスカッション グループ

上記はマイクロソフト公認のユーザー間でのFAQコーナーです。参考までに。


さて、ご要望のものは以下のマクロ関数で実現できます。


1.セルA1, A2, … にそれぞれボタンを1つずつ配置する(オブジェクト名を仮にCommandButton1, CommandButton2, …とする)


2.各ボタンのCaptionを「未完了」と設定する。


3.セルB1, B2, …を赤で塗りつぶす。


4.以下のソースをボタンを設定したシートのモジュールへ貼り付ける。


Private Sub CommandButton1_Click()

If (CommandButton1.Caption = ”未完了”) Then

CommandButton1.Caption = ”処理中”

Range(”B1”).Interior.ColorIndex = 36 ’黄色

ElseIf (CommandButton1.Caption = ”処理中”) Then

CommandButton1.Caption = ”完了”

Range(”B1”).Interior.ColorIndex = 34 ’青

End If

End Sub


Private Sub CommandButton2_Click()

If (CommandButton1.Caption = ”未完了”) Then

CommandButton1.Caption = ”処理中”

Range(”B2”).Interior.ColorIndex = 36 ’黄色

ElseIf (CommandButton1.Caption = ”処理中”) Then

CommandButton1.Caption = ”完了”

Range(”B2”).Interior.ColorIndex = 34 ’青

End If

End Sub


・・・以降、ボタンの数だけ上記関数を追加する。


これで出来ます。

◎質問者からの返答

ありがとうございました!

関連質問


●質問をもっと探す●



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