Excel VBA質問箱 IV

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

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


51962 / 76737 ←次へ | 前へ→

【29624】Re:値の振り分けです。よろしくお願いし...
発言  ichinose  - 05/10/9(日) 18:06 -

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

>返信遅れてすいません。
>以前と重ね,お礼申し上げます。
>ichinose様から頂いたものを貼り付けてみたのですが,
>後に述べた
>「項目2がスペースの試行もsame,different列には何も記載しないようにしたい」
>はできたのですが,
>先に述べた
>「項目2においてn試行前と比較しn試行前がA,Bでなくスペースであれば,
>same,different列にはスペースと追加したい」
>ができませんでした。
ん?℃素人 さんが提示されたサンプルデータで試して見ましたが、
結果も提示されたとおりでしが・・・。
では、大事を取って、Trim関数も追加して見ました。
'===========================================================
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(trim(c2)="""",trim(c" & 2 + comptry & ")=""""),"""",IF(C2=C" & 2 + comptry & ",B2,"""")))", _
         "=if(a2<=" & comptry & ",""/"",if(or(trim(c2)="""",trim(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 お礼

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