Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70595 / 76733 ←次へ | 前へ→

【10642】[無題]
質問  かぷ E-MAIL  - 04/2/4(水) 16:42 -

引用なし
パスワード
   はじめまして
ページ毎に役職入れて、1行に1人入れると下のマクロが人数分必要になってしまいます。
もっと簡単に役職が変わっても大丈夫な様なマクロはないでしょうか?
Sub チェックA()
With Sheets("氏名一覧")
If .[M4] = "役職A" Then
A役職A
ElseIf .[M4] = "掃除" Then
A掃除
ElseIf .[M4] = "役職B" Then
A役職B
ElseIf .[M4] = "役職C" Then
A役職C
ElseIf .[M4] = "役職D" Then
A役職D
ElseIf .[M4] = "学生" Then
A学生
ElseIf .[M4] = "社長" Then
A社長
ElseIf .[M4] = "役員" Then
A役員
ElseIf .[M4] = "監事" Then
A監事
ElseIf .[M4] = "事務" Then
A事務
Else
A0
End If
End With
End Sub
Sub A0()
  Sheets("役職A").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True '役職A
  Range("A1").Select
  Sheets("一般").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役職B").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("掃除").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役職C").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役職D").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("学生").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役員").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True '社長
  Rows("104:104").Select
  Selection.EntireRow.Hidden = True '役員
  Rows("204:204").Select
  Selection.EntireRow.Hidden = True '監事
  Range("A1").Select
  Sheets("氏名一覧").Select
  Range("A4").Select
End Sub
Sub A役職A()
  Sheets("一般").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = False
  Range("A1").Select
  Sheets("役職A").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = False
  Range("A1").Select
  Sheets("役職B").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("掃除").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役職C").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役職D").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("学生").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Range("A1").Select
  Sheets("役員").Select
  Rows("4:4").Select
  Selection.EntireRow.Hidden = True
  Rows("104:104").Select
  Selection.EntireRow.Hidden = True '役員
  Rows("204:204").Select
  Selection.EntireRow.Hidden = True '監事
  Range("A1").Select
  Sheets("氏名一覧").Select
  Range("A4").Select
End Sub




0 hits

【10642】[無題] かぷ 04/2/4(水) 16:42 質問
【10644】Re:[無題] 通りすがりの者 04/2/5(木) 0:00 発言
【10645】Re:[無題] かぷ 04/2/5(木) 0:33 発言
【10646】プロシジャー分割 ichinose 04/2/5(木) 2:32 回答
【10647】誤字脱字が・・・ ichinose 04/2/5(木) 2:44 発言
【10648】Re:プロシジャー分割 かぷ 04/2/5(木) 7:58 発言
【10653】Re:プロシジャー分割 かぷ 04/2/5(木) 13:22 発言
【10676】さらに追記 かぷ 04/2/5(木) 18:53 発言
【10678】Re:プロシジャー分割 ichinose 04/2/5(木) 23:54 質問
【10679】Re:プロシジャー分割 かぷ 04/2/6(金) 0:18 回答
【10680】Re:プロシジャー分割 ichinose 04/2/6(金) 1:10 回答
【10683】Re:プロシジャー分割 かぷ 04/2/6(金) 9:50 お礼

70595 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free