Excel VBA質問箱 IV

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

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


37468 / 76732 ←次へ | 前へ→

【44429】Re:数式を書込したいのですが
発言  ichiro  - 06/11/16(木) 1:13 -

引用なし
パスワード
   ▼Kein さん:
ありがとうございます。
遅くまですみません
クリア以外うまくいきました 思い通りgoodです

>>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 お礼

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