[[20100824104201]]　『比較』（みの）　ページの最後に飛ぶ

『比較』（みの）

こんにちは

C4とC23の数字を比較して、数字の低い方をA1に

入れるマクロを教えて下さい。

Cell(1,1).Value = 　& "日"

Excel2007

 こうですか？

 if Cells(4, 3).value < Cells(23, 3).value then
    Cells(1, 1).value = Cells(4, 3).value & "日"
 else
    Cells(1, 1).value = Cells(23, 3).value & "日"
 end if

 （てつろう）

 こんな感じでも？

 Dim a As Long, b As Long

 a = Range("C4").Value
 b = Range("C23").Value

 Range("A1") = IIf(a < b, a, b) & "日"

 (Dil)

 Sub test()

    Cells(1, 1).Value = WorksheetFunction.Min(Range("C4").Value, Range("C23").Value) & "日"
 End Sub
 とか。。
 (kei)

 こんにちは。 こんなのとか。

    Range("A1").Value = [MIN(C4,C23)] & "日"

 （コタ）

 コタさん、ゲ・ゲーッ・・です。。^^;
 (kei)

いろいろな方法があって、勉強になります。

皆様、有り難うございました。みの

おはようございます。

条件を追加したいのですが、

C4とC23のどちらかが空白の場合、空白では無い数字を入れるには、

どうしたらいいでしょうか？

宜しくお願い致します。みの

 おはよーございます。
 さっそく、コタさんから習った手法で、、
 Sub test2()

    Cells(1, 1).Value = [IF(AND(C4<>"",C23<>""),MIN(C4,C23),SUM(C4,C23))]
 End Sub
 (kei)

  WorksheetFunction.Min(Range("C4"), Range("C23"))
 または
 [MIN(C4,C23)]
 で、空白セルは無視してくれませんか？
 (独覚)

keiさん　有り難うございます。

WorksheetFunctionの場合は、

Cells(1, 1).Value = WorksheetFunction.IF(AND(C4<>"",C23<>""),MIN(C4,C23),SUM(C4,C23)) & "日"

ANDの部分で、ひっかかります。

独覚さん　

＞空白セルは無視してくれませんか？

0　になります。（0と表示）

何度も申し訳ありませんが宜しくお願い致します。みの

 本当にセルは空白ですか？
 0が入力されている時に「0」を非表示にしていたりしませんか？

 また、keiさんが書かれた式は
 [IF(AND(C4<>"",C23<>""),MIN(C4,C23),SUM(C4,C23))]
 です。
 WorksheetFunction.IF(AND(C4<>"",C23<>""),MIN(C4,C23),SUM(C4,C23))
 ではありませんよ。
 (独覚)

独覚さん　すみません。

＞空白セルは無視してくれませんか？

無視してくれました。

お手数をお掛けいたしました。みの

コメント返信：

[ 一覧(最新更新順) ]

[[20100824104201]] 『比較』（みの） ページの最後に飛ぶ

[[20100824104201]]　『比較』（みの）　ページの最後に飛ぶ