[[20100430204412]] 『まとめられませんか?』(もも) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『まとめられませんか?』(もも)
Sub ボタン1_Click()
'
' ボタン1_Click Macro
' マクロ記録日 : 2010/4/30 ユーザー名 : hh
'

'

    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 

キリキさん回答ありがとうございます。んん・・・違うような・・・
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
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)


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.