Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
155 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81807】textについて とうした 21/5/31(月) 21:19 質問[未読]
【81808】Re:textについて BJ 21/6/1(火) 0:52 発言[未読]
【81809】Re:textについて とうした 21/6/1(火) 8:22 質問[未読]
【81810】Re:textについて 山内 21/6/1(火) 10:34 回答[未読]
【81811】Re:textについて とうした 21/6/1(火) 11:06 お礼[未読]
【81807】textについて
質問  とうした  - 21/5/31(月) 21:19 -
引用なし
パスワード
   セル範囲をrangeでセットして、
その範囲内の空白チェックを使うと前提した上での質問です。

その範囲内の値が全て特定の同じ値の場合と、
そうでない場合でif文を組もうとした時に、
vbaのローカルウィンドウ内のtextを確認すると、
全て同じならその値が、
一つでも異なればnullとなっていました。

これは使えると思ったのですが、この使い方で合っているのかどうかが知りたいです。

以下はそのコードになります。
Sub test()
　　Dim abc As Range
　　Set abc = Range("A1:A3")
　　If WorksheetFunction.CountBlank(abc) = 0 Then
　　　　If abc.Text = "あ" Then
　　　　　　Stop
　　　　Else
　　　　　　Stop
　　　　End If
　　End If
End Sub
【81808】Re:textについて
発言  BJ  - 21/6/1(火) 0:52 -
引用なし
パスワード
   with range("A1:C10")
　if application.countif(.cells,.cells(1).value)=.cells.count then
　　 msgbox "全部同じ"
　else
　　 msgbox "なんか適当にやってる感じ"
　end if
end with

因みに全空白判定は入って無いので、提示されたコードを利用。
【81809】Re:textについて
質問  とうした  - 21/6/1(火) 8:22 -
引用なし
パスワード
   ＞BJ さん
お返事ありがとうございます。
BJさんのコードは私の中では見たことのないとてもスマートなコードでしたので、
今度参考にさせてもらいます。

因みに私のコードの先頭に●マークの部分だけは必須とした場合は、
その中身は他にどんな書き方が有りますか？


●Dim abc As Range
●Set abc = Range("A1:A3")
●If WorksheetFunction.CountBlank(abc) = 0 Then
　　If abc.Text = "あ" Then
　　　　Stop
　　Else
　　　　Stop
　　End If
●End If
【81810】Re:textについて
回答  山内  - 21/6/1(火) 10:34 -
引用なし
パスワード
   ▼とうした さん：
>＞BJ さん
>お返事ありがとうございます。
>BJさんのコードは私の中では見たことのないとてもスマートなコードでしたので、
>今度参考にさせてもらいます。
>
>因みに私のコードの先頭に●マークの部分だけは必須とした場合は、
>その中身は他にどんな書き方が有りますか？
>
>
>●Dim abc As Range
>●Set abc = Range("A1:A3")
>●If WorksheetFunction.CountBlank(abc) = 0 Then
>　　If abc.Text = "あ" Then
>　　　　Stop
>　　Else
>　　　　Stop
>　　End If
>●End If


複数選択のTextは表示形式にも左右されるようなのでそれに気をつけたら問題ないかも？
例
Range("A1").Value = "2021/6/1"
Range("B1").Value = "2021/6/2"

Range("A1:B1").NumberFormat = "yyyy/mm"
Debug.Print Range("A1:B1").Text
【81811】Re:textについて
お礼  とうした  - 21/6/1(火) 11:06 -
引用なし
パスワード
   >山内さん
お返事ありがとうございます。

text使う場合は表示形式に気を付けてって事ですね。

分かりました。

BJさん
山内さん
お二人のお忙しい時間を割いてご協力ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
155 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free