[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『まとめられませんか?』(もも)
'
Range("A1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("B1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("C1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("D1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("E1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("F1").Select ActiveCell.FormulaR1C1 = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" Range("G1").Select End Sub このコードはA1woダブルクリックして入力出来る状態にしてエンターキーを押すを繰り返したコードです。この式が100以上ありまともに書いたらオーバーになりエラーになると思うのですがこのコードをセル範囲を指定して式も壊さずにこのままの動きをするコードに書き換えてもらえませんか?範囲はF4:AJ59です。よろしくお願いします。
こういう事でしょうか??? Sub ボタン1_Click() Range("A1:G1") = "=RC[6]+VLOOKUP(RC[3],R[8]C[6]:R[16]C[10],3,FALSE)" End Sub (キリキ)(〃⌒o⌒)b
'
Range("F4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-2],出勤簿!R4C3:R147C36,4,FALSE)),"""",VLOOKUP(RC[-2],出勤簿!R4C3:R147C36,4,FALSE))" Range("G4").Select End Sub F4をダブルクリックして入力出来る状態にしてエンターキーを押すこんな感じのコードです。 F4のセルのみで書いてみました。これがF4:AJ59のセルに式が書かれてます。この式を壊さないように上に書いたコードですべてのセルを処理したいのですが出来ませんか?(もも)
こんばんわ。。 Range("F4:AJ59").Formula = _ "=IF(ISNA(VLOOKUP(D4,出勤簿!$C$4:$AJ$147,4,FALSE)),"""",VLOOKUP(D4,出勤簿!$C$4:$AJ$147,4,FALSE))" で良いかなぁ? (kei)
F4に =IF(ISNA(VLOOKUP(D4,出勤簿!$C$4:$AJ$147,4,FALSE)),"",VLOOKUP(D4,出勤簿!$C$4:$AJ$147,4,FALSE)) を入力し、この関数をF4:AJ59にコピペしたことと同様の結果なのですが。。 (kei)
Sub 出勤簿編集_ボタン24_Click()
'
' 出勤簿編集_ボタン24_Click Macro
' マクロ記録日 : 2010/4/30 ユーザー名 : hh
'
'
Range("F4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-2],出勤簿!R4C3:R147C36,4,FALSE)),"""",VLOOKUP(RC[-2],出勤簿!R4C3:R147C36,4,FALSE))" Range("G4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-3],出勤簿!R4C3:R147C36,5,FALSE)),"""",VLOOKUP(RC[-3],出勤簿!R4C3:R147C36,5,FALSE))" Range("H4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-4],出勤簿!R4C3:R147C36,6,FALSE)),"""",VLOOKUP(RC[-4],出勤簿!R4C3:R147C36,6,FALSE))" Range("I4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-5],出勤簿!R4C3:R147C36,7,FALSE)),"""",VLOOKUP(RC[-5],出勤簿!R4C3:R147C36,7,FALSE))" Range("J4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-6],出勤簿!R4C3:R147C36,8,FALSE)),"""",VLOOKUP(RC[-6],出勤簿!R4C3:R147C36,8,FALSE))" Range("K4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-7],出勤簿!R4C3:R147C36,9,FALSE)),"""",VLOOKUP(RC[-7],出勤簿!R4C3:R147C36,9,FALSE))" Range("L4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-8],出勤簿!R4C3:R147C36,10,FALSE)),"""",VLOOKUP(RC[-8],出勤簿!R4C3:R147C36,10,FALSE))" Range("M4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-9],出勤簿!R4C3:R147C36,11,FALSE)),"""",VLOOKUP(RC[-9],出勤簿!R4C3:R147C36,11,FALSE))" Range("N4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-10],出勤簿!R4C3:R147C36,12,FALSE)),"""",VLOOKUP(RC[-10],出勤簿!R4C3:R147C36,12,FALSE))" Range("O4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-11],出勤簿!R4C3:R147C36,13,FALSE)),"""",VLOOKUP(RC[-11],出勤簿!R4C3:R147C36,13,FALSE))" Range("P4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-12],出勤簿!R4C3:R147C36,14,FALSE)),"""",VLOOKUP(RC[-12],出勤簿!R4C3:R147C36,14,FALSE))" Range("Q4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-13],出勤簿!R4C3:R147C36,15,FALSE)),"""",VLOOKUP(RC[-13],出勤簿!R4C3:R147C36,15,FALSE))" Range("R4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-14],出勤簿!R4C3:R147C36,16,FALSE)),"""",VLOOKUP(RC[-14],出勤簿!R4C3:R147C36,16,FALSE))" Range("S4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-15],出勤簿!R4C3:R147C36,17,FALSE)),"""",VLOOKUP(RC[-15],出勤簿!R4C3:R147C36,17,FALSE))" Range("T4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-16],出勤簿!R4C3:R147C36,18,FALSE)),"""",VLOOKUP(RC[-16],出勤簿!R4C3:R147C36,18,FALSE))" Range("U4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-17],出勤簿!R4C3:R147C36,19,FALSE)),"""",VLOOKUP(RC[-17],出勤簿!R4C3:R147C36,19,FALSE))" Range("V4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-18],出勤簿!R4C3:R147C36,20,FALSE)),"""",VLOOKUP(RC[-18],出勤簿!R4C3:R147C36,20,FALSE))" Range("W4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-19],出勤簿!R4C3:R147C36,21,FALSE)),"""",VLOOKUP(RC[-19],出勤簿!R4C3:R147C36,21,FALSE))" Range("X4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-20],出勤簿!R4C3:R147C36,22,FALSE)),"""",VLOOKUP(RC[-20],出勤簿!R4C3:R147C36,22,FALSE))" Range("Y4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-21],出勤簿!R4C3:R147C36,23,FALSE)),"""",VLOOKUP(RC[-21],出勤簿!R4C3:R147C36,23,FALSE))" Range("Z4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-22],出勤簿!R4C3:R147C36,24,FALSE)),"""",VLOOKUP(RC[-22],出勤簿!R4C3:R147C36,24,FALSE))" Range("AA4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-23],出勤簿!R4C3:R147C36,25,FALSE)),"""",VLOOKUP(RC[-23],出勤簿!R4C3:R147C36,25,FALSE))" Range("AB4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-24],出勤簿!R4C3:R147C36,26,FALSE)),"""",VLOOKUP(RC[-24],出勤簿!R4C3:R147C36,26,FALSE))" Range("AC4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-25],出勤簿!R4C3:R147C36,27,FALSE)),"""",VLOOKUP(RC[-25],出勤簿!R4C3:R147C36,27,FALSE))" Range("AD4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-26],出勤簿!R4C3:R147C36,28,FALSE)),"""",VLOOKUP(RC[-26],出勤簿!R4C3:R147C36,28,FALSE))" Range("AE4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-27],出勤簿!R4C3:R147C36,29,FALSE)),"""",VLOOKUP(RC[-27],出勤簿!R4C3:R147C36,29,FALSE))" Range("AF4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-28],出勤簿!R4C3:R147C36,30,FALSE)),"""",VLOOKUP(RC[-28],出勤簿!R4C3:R147C36,30,FALSE))" Range("AG4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-29],出勤簿!R4C3:R147C36,31,FALSE)),"""",VLOOKUP(RC[-29],出勤簿!R4C3:R147C36,31,FALSE))" Range("AH4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-30],出勤簿!R4C3:R147C36,32,FALSE)),"""",VLOOKUP(RC[-30],出勤簿!R4C3:R147C36,21,FALSE))" Range("AI4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-31],出勤簿!R4C3:R147C36,33,FALSE)),"""",VLOOKUP(RC[-31],出勤簿!R4C3:R147C36,33,FALSE))" Range("AJ4").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-32],出勤簿!R4C3:R147C36,34,FALSE)),"""",VLOOKUP(RC[-32],出勤簿!R4C3:R147C36,34,FALSE))" Range("AK4").Select End Sub
書式設定が文字列になっていたら、標準にしておいてください。 (bass)
関数をやり直しました。。 おそらく良いかな?
Sub ttest() Range("F4:AJ59").Formula = _ "=IF(ISNA(VLOOKUP($D$4,出勤簿!$C$4:$AJ$147,COLUMN(D$1),FALSE)),"""",VLOOKUP($D$4,出勤簿!$C$4:$AJ$147,COLUMN(D$1),FALSE))" End Sub 明日も仕事ですので、、とりあえずお休みなさい。。(kei)
>ダブルクリックして入力出来る状態にしてエンターキーの動作 は必要ありません。新規のシートで実行してみてください。 >ダブルクリックして入力出来る状態にしてエンターキーの動作が出来ていない というのは、どうなるのですか。 (bass)
目的は何ですか ・・(mitsu)
1.入力出来る状態にしてエンターキーを押すを繰り返す事ですか 2.数式を入力することですか
それ以外なら詳細を提示して下さい。
仕事明けです。^^
>何故かはわかりませんがこれをやると参照先の答えが再計算されます。
強制的に再計算させたければ、、 コードの最後に Calculate を入れてやれば、どうかしら? (kei)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.