Excel VBA質問箱 IV

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

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


3928 / 13644 ツリー ←次へ | 前へ→

【59423】特定した最終Cellの取得 kiki 08/12/10(水) 17:32 質問[未読]
【59424】Re:特定した最終Cellの取得 SS 08/12/10(水) 18:15 発言[未読]
【59433】Re:特定した最終Cellの取得 kiki 08/12/10(水) 22:29 お礼[未読]

【59423】特定した最終Cellの取得
質問  kiki  - 08/12/10(水) 17:32 -

引用なし
パスワード
   お世話になります。

2003 XP

M50、M100、M150中で

もし、M50、M100に値があったら M100
もし、M50、M100、M150に値があったら M150
Cellの取得を教えて下さい。

基本的な事で申し訳ありませんが、宜しくお願いします。 

【59424】Re:特定した最終Cellの取得
発言  SS  - 08/12/10(水) 18:15 -

引用なし
パスワード
   ▼kiki さん:

Cellの値を得たいのならば
=if(M50<>"",if(M100<>"",if(M150<>"",M150,M100),""),"")
こんな感じで良いのではないでしょうか?
M50、M150に値があって、M100に値が無い場合などの条件が不明なので
修正は必要だと思いますが。

VBAで同等の作業をするには
  if Range("M50").value <> "" then
    if Range("M100").value <> "" then
      if Range("M150").value <> "" then
        tmp = Range("M150").value
      Else
        tmp = Range("M100").value
      EndIf
    Else
      tmp = Range("M50").value
    EndIf
  EndIf

尚、値で無いならば.Row等で必要なものを指定すれば良いと思います。

>
>お世話になります。
>
>2003 XP
>
>M50、M100、M150中で
>
>もし、M50、M100に値があったら M100
>もし、M50、M100、M150に値があったら M150
>Cellの取得を教えて下さい。
>
>基本的な事で申し訳ありませんが、宜しくお願いします。

【59433】Re:特定した最終Cellの取得
お礼  kiki  - 08/12/10(水) 22:29 -

引用なし
パスワード
   SSさん 有り難うございます。
提示して頂いた、コードで、
バッチリです。
本当に有り難うございました。

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