Excel VBA質問箱 IV

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

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


37469 / 76732 ←次へ | 前へ→

【44428】Re:数式を書込したいのですが
回答  Kein  - 06/11/16(木) 0:54 -

引用なし
パスワード
   >1行毎に数式を入れる
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 質問
【44422】Re:数式を書込したいのですが Kein 06/11/15(水) 23:11 回答
【44423】Re:数式を書込したいのですが ichiro 06/11/15(水) 23:44 発言
【44424】Re:数式を書込したいのですが Kein 06/11/15(水) 23:48 発言
【44425】Re:数式を書込したいのですが ichiro 06/11/16(木) 0:00 発言
【44428】Re:数式を書込したいのですが Kein 06/11/16(木) 0:54 回答
【44429】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:13 発言
【44430】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:25 発言
【44431】Re:数式を書込したいのですが Kein 06/11/16(木) 1:44 発言
【44432】Re:数式を書込したいのですが ichiro 06/11/16(木) 1:56 お礼

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