Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37473 / 76738

←次へ　｜　前へ→


	【44430】Re:数式を書込したいのですが

ichiro - 06/11/16(木) 1:25 -


	引用なし

	パスワード

▼Kein さん：
下記テストの結果ですが
H列書式全て消えてしまう（データのみ消したいのですが）
次にH3のみしかデータが書き換えられない
ユーザーフォームで１行ずつ追記・追記してゆくことができません。
以上テスト結果です。よろしくお願いします。

>>１行毎に数式を入れる
>H3からH68までのセルに、ボタンをクリックする毎に一つずつ数式を入れるなら、
>まず UserForm_Initialize() のコードのどこかに
>
>　 Range("$H:$H").Clear
>
>と追加して、CommandButton1_Click() の方は
>
>　 Dim FmR As Long
>
>と変数の宣言を追加、数式を入力するコードは
>
>　 If WorksheetFunction.CountBlank(Range("H3:H68")) > 0 Then
>　　　With Range("H3:H68").SpecialCells(4).Cells(1)
>　　　　 FmR = .Row
>　　　　 .Formula = _
>　　　　 "=IF(ISBLANK($G" & FmR & "),"""",IF(ISERROR($G" & _
>　　　　 FmR & "/$F" & FmR & "),"""",$G" & FmR & "/$F" & FmR & "))"
>　　　End With
>　 End If
>
>とすれば良いでしょう。事前にH列を全クリアするのは、確実に空白セルを
>作っておくためです。こちらでテストしたとき、そうしないと CountBlank関数
>や SpecialCellsメソッドが正しく働かなかったからです。

0 hits

▼

【44418】数式を書込したいのですが ichiro 06/11/15(水) 20:39