Excel VBA質問箱 IV

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

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


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

37475 / 76738

←次へ　｜　前へ→


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

Kein - 06/11/16(木) 0:54 -


	引用なし

	パスワード

>１行毎に数式を入れる
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