Excel VBA質問箱 IV

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

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


51989 / 76737 ←次へ | 前へ→

【29596】Re:値の振り分けです。よろしくお願いします...
発言  ichinose  - 05/10/8(土) 22:43 -

引用なし
パスワード
   ℃素人 さん、Hirofumiさん、こんばんは。

前回の投稿を記述していただいたので、
思い出すのが容易でした。

私の個人的な感想としては、℃素人 さんのご質問は
非常にわかりやすい記述だと思います。

前回のコードほんのちょっと変更しました。


'====================================================
Sub main()
  Dim comptry As Variant
  Dim rng As Range
  comptry = Application.InputBox("比較する試行前入力", , , , , , , 1)
  'ここで、1とか2とかを指定します。

  If TypeName(comptry) <> "Boolean" Then
    Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
    If rng.Row > 1 Then
     With rng.Offset(0, 3).Resize(, 2)
       .Formula = Array( _
         "=if(a2<=" & comptry & ",""/"",if(or(c2="""",c" & 2 + comptry & "=""""),"""",IF(C2=C" & 2 + comptry & ",B2,"""")))", _
         "=if(a2<=" & comptry & ",""/"",if(or(c2="""",c" & 2 + comptry & "=""""),"""",IF(C2=C" & 2 + comptry & ","""",b2)))")
       End With
     End If
    End If
End Sub


確認してみて下さい。

0 hits

【29593】値の振り分けです。よろしくお願いします... ℃素人 05/10/8(土) 18:56 質問
【29594】Re:値の振り分けです。よろしくお願いしま... Hirofumi 05/10/8(土) 20:53 回答
【29595】Re:値の振り分けです。よろしくお願いしま... Hirofumi 05/10/8(土) 21:10 発言
【29618】Re:値の振り分けです。よろしくお願いし... ℃素人 05/10/9(日) 16:27 お礼
【29596】Re:値の振り分けです。よろしくお願いしま... ichinose 05/10/8(土) 22:43 発言
【29619】Re:値の振り分けです。よろしくお願いし... ℃素人 05/10/9(日) 16:41 お礼
【29624】Re:値の振り分けです。よろしくお願いし... ichinose 05/10/9(日) 18:06 発言
【29667】Re:値の振り分けです。よろしくお願いし... ℃素人 05/10/11(火) 12:20 お礼

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