No.8ベストアンサー
- 回答日時:
No7です。
>短文ですけど、理解が出来ない文ですね。
あぁ、すみません。面倒なので、ショートハンドを使っちゃいました…
>B列には数式入っています。
B列は「入力」と書いてあったので、てっきり関数式は無いものと思いましたけれど・・・
では、いずれにしろNo7ではうまくいきませんね。
内容を訂正して、普通に書くなら、
※ 動作や注意事項はNo7と同じです。
※ 同じ行のA列、B列は片方だけ空白になることはないと解釈しています。
Sub Sample()
Dim n As Long
n = Application.Evaluate("SumProduct((A5:A10 <> """") * 1)")
If n Then Range("A5").Resize(n, 2).Select
End Sub
ありがとうございます。上手く行きました。
何度も丁寧に説明して頂きありがとうございました。
すぐに答えられるのは素晴らしい知識をお持ちですね。
No.7
- 回答日時:
No6です。
>セルはB5,B6と順番に埋まっていくので、
>飛び飛びの範囲になることはないです。
であることを前提にできるのなら、更に簡単になります。(実質1行)
ご指定の「Ctrl+A」などは無視させていただいていますが、以下ではいかがでしょうか?
※ B列には関数式は無いものと仮定しています。
※ B5:B10全てが空白の場合は何もしません。
Sub Sample()
If [CountA(B5:B10)] Then Range("A5").Resize([CountA(B5:B10)], 2).Select
End Sub
>それをマクロに組み込みたいなと考えています。
シートはデフォルト(=Activesheet)として記述してありますので、他のマクロに組み込むのなら、そのあたりをご注意ください。
No.6
- 回答日時:
No5です。
>A5:B10の2列が対象になっており、~~
範囲がA5:B10限定と決まっているのなら、かなり単純化できます。
>B列に値が入らない時、隣のA列は数式のみで空白が表示される数式になっています。
ということは、必ず同じ行が空白になると限定しても良いということと解釈しました。
>説明が難しいですが理解して頂けたでしょうか。
まだ、わかりかねます。
例えば、A5:B10の範囲で、A7:B7及びA9:B9が空白となっている時に、
>あるセルを基準に~~
規準にするセルは「アクティブセル」だと思いますが、上記の状態で、仮に、A5セルがアクティブ(=基準)の時に、選択したい範囲は、A5:B6で良いのでしょうか?
それとも、A5:B6,A8:B8,A10:B10の範囲でしょうか?
もしも後者であれば、基準となるセルは処理とは関係がなく、「A5:B10の範囲で値が空白でないセルを全て選択する」という内容と同値になると思います。
これを更に言い換えれば、「(関数式のない)B5:B10で値のあるセルを選択し、それをA列まで拡張する」と同じことになると考えられます。
もしも、ここまで言い換えても良いのなら、ご質問の処理は、とても簡単なものになるでしょう。
No.5
- 回答日時:
こんにちは
>隣接しているので1つの範囲にしたいです。
「隣接している」の考え方に二通りありそうに思えます。
>あるセルを基準に、例えばCtrl+Aでセルに値が入力されている部分を選択したいのです。
>その時に数式が入ってはいるが空白になっているセルは選択されないようにしたいのです。
仮に、先に空白に見えているセルの数式を削除してからCtrl+Aで選択される範囲と、文章通りにそのままCtrl+Aで選択される範囲とは異なる可能性がありますが、どちらなのでしょうか?
例えば、A1:C10の範囲で、A列とC列に値があり、B列には空白となる数式が全てあるとして、Ctrl+AではA1:C10全体が選択されますが、B列の数式を全て削除してからCtrl+Aでは、元の選択セルの列のみが選択範囲となります。
文章通りの場合は、ActiveCell.CurrentRegion(=Ctrl+Aとほぼ同じ:空白セル選択時の結果が異なる)から、値が空白のセルを除けばよいので、比較的簡単にできます。
そうでない場合は、結果が空白の数式を実際に消してしまうわけにはいかないので、チョット工夫が必要になります。
前にも教えて頂いたような、いつもありがとうございます。他の方ならそんなことしないと言われそうですが、とりあえず今は、A5:B10の2列が対象になっており、B列に値が入れば、となりのA列にも値が入るような数式になっています。B列に値が入らない時、隣のA列は数式のみで空白が表示される数式になっています。例えばB5とB6に値が入ったらA5:B6が選択されるようにしたいのですが現状だと数式が入っているため、どんな時もA5:B10が選択されてしまいます。
説明が難しいですが理解して頂けたでしょうか。よろしくお願いしますか
No.4
- 回答日時:
>それをマクロに組み込みたいなと考えています。
VBAで数式が入っているセルかどうかを判断したいという事でもないんですよね?
If Not Cells(2, 2).HasFormula Then
MsgBox "数式なし"
ElseIf Cells(2, 2).HasFormula Then
MsgBox "数式あり"
End If
選択前と選択後の写真を見せていただくことは可能ですか?
これ(選択前)をこう(選択後)したいというのが分かれば、
他の方からの回答も付きやすくなるのではないかと思います。
No.3
- 回答日時:
ジャンプ機能だと選択したい範囲に空白が含まれていたらそれが除外されてしまいますからね。
選択したい範囲に数式ではなくて、範囲全部が埋まっている列はないのですか?
No.2
- 回答日時:
そうでしたか。
私が試した限りだと、下記の方法で
「数式が入ってはいるが空白になっているセルは選択されない」
という状態になりますが、質問者さんの場合はどういう状態になりましたか?
0.Ctrl+A を押します。
1.Ctrl+G を押します。
2.セル選択 を押します。
3.下記にチェックを入れます。
●定数
■数値
■文字
■論理値
■エラー値
4.OK を押します。
教えて頂いたのを少し変更して、該当せるを選択出来るようにはなったのですが、これは1つ1つのセルが独立して選択されるのですね。
確かにその通りだと思うのですが、今回私が考えているセルは隣接しているので1つの範囲にしたいです。
それをマクロに組み込みたいなと考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) WORKDAY関数 4 2023/06/08 13:23
- Excel(エクセル) エクセルのグラフで式や文字列を無視したい 2 2022/12/14 10:47
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) xlDownの使い分けについての質問です vbaでxlDownを使って一覧近い空白までのセルをコピー 3 2022/08/04 12:20
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
-
4
Excel計算式が入ってるセルを空白表示にしたいんですけど…
Excel(エクセル)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
エクセルで数式を入れても値が空欄になります
Excel(エクセル)
-
7
Excel:関数が入っているセルに対しての条件付き書式設定について質問です。 ①A1のセルに関数が入
Excel(エクセル)
-
8
EXCELで条件付き書式で空白セルの時は塗りつぶし無しにする方法
Excel(エクセル)
-
9
エクセルで数式の入った空白セルを空白認識させカウント数に含めない方法
Excel(エクセル)
-
10
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
11
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
12
SUMIF関数で、「ブランク以外を合計」を指定したい
その他(Microsoft Office)
-
13
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
14
条件付き書式の空白の場合、空白でない場合について
Excel(エクセル)
-
15
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
16
エクセルで表示形式の時刻の「0:00」を表示しないようにするには?
Excel(エクセル)
-
17
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
18
EXCEL計算式が入っているセルを空白表示に
Excel(エクセル)
-
19
空白セルを空セルに置き換える方法(エクセル)
Excel(エクセル)
-
20
Excel-参照セルが空白の場合、別のセルを参照するには。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
-1234 を (1234) と表記する由...
-
エクセルで現場ごとに機材の移...
-
他部署からもらう データで、 ...
-
Excel 1の位の数字で処理を分岐...
-
Excelのセルの色を変えた行(す...
-
エクセルの数式について教えて...
-
Excelでの記号と特殊文字につい...
-
とびとびの大量セルを選択した...
-
MACにおけるエクセルの入力トラ...
-
ある表にフィルターをかけて出...
-
Lookup関数
-
エクセルの数式バーのフォント...
-
再質問です。マクロの修正箇所...
-
エクセルで「ページレイアウト...
-
EXCELの散布図で日付が1900年に...
-
【マクロ】VLOOKUPにて参照元に...
-
exselの質問です
-
エクセルでファイルの最終更新...
-
Excel 大小比較演算子による「...
-
エクセルの問題です。絶対値の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報