Excel VBA質問箱 IV

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

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


54259 / 76732 ←次へ | 前へ→

【27269】Re:数式をVBAに置き換えたいのですが・・・
発言  ichinose  - 05/8/3(水) 23:43 -

引用なし
パスワード
   ▼はじめて娘 さん:
こんばんは。

>間違っているところはありませんか??
概、OKですけど・・・、数式と同じパターンにするなら、

>===================================================================
>Sub judgement3()
>
>  If Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
>    Range("K2").Value = "ENG"
>    
>  ElseIf Application.CountIf(Range("M2:P2"), "FRA") + Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
>    Range("K2").Value = "FRA"
>    
>  ElseIf Application.CountIf(Range("M2:P2"), "ITA") + Application.CountIf(Range("M2:P2"), "ENG") = Range("M2:P2").Count Then
>    Range("K2").Value = "ITA"
>    
>  ElseIf Application.CountIf(Range("M2:P2"), "GER") Then
>    Range("K2").Value = "GER"
>    
>  ElseIf Application.CountIf(Range("M2:P2"), "ESP") Then
>    Range("K2").Value = "ESP"
>    
>  ElseIf Application.CountA(Range("M2:P2")) = Range("M2:P2").Count Then
>    Range("K2").Value = "JPN"
>    
>  ElseIf Application.CountA(Range("M2:P2")) Then
>    Range("K2").Value = "ITA"
   else
    Range("K2").Value = "FRA"
'が抜けてました。
>  End If
>  
>End Sub
>===================================================================

後は、With文を使用したり、Range("M2:P2")やRange("M2:P2").Count は
予め変数に設定しておく等がありますが、それはおいおいやってみて下さい。

1 hits

【27221】数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/2(火) 17:40 質問
【27222】Re:数式をVBAに置き換えたいのですが・・・ こうちゃん 05/8/2(火) 18:42 発言
【27226】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/2(火) 20:16 回答
【27228】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/2(火) 20:18 質問
【27230】Re:数式をVBAに置き換えたいのですが・・・ こうちゃん 05/8/2(火) 20:26 発言
【27236】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/3(水) 9:15 質問
【27223】Re:数式をVBAに置き換えたいのですが・・・ ichinose 05/8/2(火) 18:43 発言
【27227】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/2(火) 20:17 質問
【27244】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/3(水) 13:37 質問
【27269】Re:数式をVBAに置き換えたいのですが・・・ ichinose 05/8/3(水) 23:43 発言
【27275】Re:数式をVBAに置き換えたいのですが・・・ はじめて娘 05/8/4(木) 9:17 お礼

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