Excel VBA質問箱 IV

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

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


70594 / 76738 ←次へ | 前へ→

【10648】Re:プロシジャー分割
発言  かぷ  - 04/2/5(木) 7:58 -

引用なし
パスワード
   ichinoseさん

早速の返答ありがとうございます。

>で、知りたいのは、シート「氏名一覧」の4行目氏名にデータの場合には、
>各シートのほとんどが4行目を表示・非表示の設定、役員シートの役員と監事がそれぞれ
>100+4、200+4行目を表示・非表示の設定を行っています。

>これが、シート「氏名一覧」の5行目氏名に対しては、各シートの何行目に対して
>表示・非表示の設定を行うのかということなんです。

氏名一覧の一部ですが(現状)
A4 は 1 (1)
B4 は 入力禁則で変更します(掃除)
C4 は 氏名(A)
D4 は 口座店名
E4 は 口座番号
F4 は 時間給1(1000)
G4 は 時間給2(1100)
H4 は 時間給3(1200)
I4 は 入力禁則で変更します(乙)
J4 は 人数(0)
K4 は チェックボックス($Q$4)
M4 は =IF(Q4=TRUE,B4,IF(B4="社長","社長",""))
Q4 FALSE (TRUE)
A5 は (2)
B5 は 入力禁則で変更します(役員)
C5 は 氏名(A)
D5 は 口座店名
E5 は 口座番号
F5 は 時間給1(1000)
G5 は 時間給2(1100)
H5 は 時間給3(1200)
I5 は 入力禁則で変更します(乙)
J5 は 人数(0)
K5 は チェックボックス($Q$5)
M5 は =IF(Q5=TRUE,B5,IF(B5="社長","社長",""))
Q5 FALSE (TRUE)
A6 (3)
以下同様です。

役員シートの
A4 =氏名一覧!M4
B4 =氏名一覧!O4
C4 =IF(B4="","",VLOOKUP(B4,氏名一覧!$A$3:$E$102,2))
D4 =IF(C4="社長",IF(B4="","",VLOOKUP(B4,氏名一覧!$A$3:$E$102,3)),"")
E4 =IF(C4="社長",IF(B4="","",(VLOOKUP(B4,氏名一覧!$A$3:$E$102,4))),"")



A104 =氏名一覧!M4
B104 =氏名一覧!O4
C104 =IF(B104="","",VLOOKUP(B104,氏名一覧!$A$3:$E$102,2))
D104 =IF(C104="役員",IF(B104="","",VLOOKUP(B104,氏名一覧!$A$3:$E$102,3)),"")
E104 =IF(C104="役員",IF(B104="","",(VLOOKUP(B104,氏名一覧!$A$3:$E$102,4))),"")



A204 =氏名一覧!M4
B204 =氏名一覧!O4
C204 =IF(B204="","",VLOOKUP(B104,氏名一覧!$A$3:$E$102,2))
D204 =IF(C204="監事",IF(B204="","",VLOOKUP(B204,氏名一覧!$A$3:$E$102,3)),"")
E204 =IF(C204="監事",IF(B204="","",(VLOOKUP(B204,氏名一覧!$A$3:$E$102,4))),"")



一般シート
A4 =氏名一覧!M4
B4 =氏名一覧!O4
C4 =IF(B4="","",VLOOKUP(B104,氏名一覧!$A$3:$E$102,2))
D4 =IF(C4="監事","",IF(C4="社長","",IF(C4="役員","",IF(B4="","",VLOOKUP(B4,氏名一覧!$A$3:$E$102,3)))))
E4 =IF(C4="監事","",IF(C4="社長","",IF(C4="役員","",IF(B4="","",(VLOOKUP(B4,氏名一覧!$A$3:$E$102,4))))))



掃除シート(他のシートも同じです)
L2 =SheetName()
A4 =氏名一覧!M4
B4 =氏名一覧!O4
C4 =IF(B4="","",VLOOKUP(B104,氏名一覧!$A$3:$E$102,2))
D4 =IF(C4=$L$2,IF(B4="","",VLOOKUP(B4,氏名一覧!$A$3:$E$102,3)),"")
E4 =IF(C4=$L$2,IF(B4="","",(VLOOKUP(B4,氏名一覧!$A$3:$E$102,4))),"")



203行目には社長、役員の小計が入りまして
303行目には監事の小計が入ります。
304行目は合計が入ります。


よろしくお願いします。
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 お礼

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