Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

887 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【77724】ＶＢＡで数式のセルをカウントさせない方法 勉強不足 15/12/6(日) 18:00

【77726】Re:ＶＢＡで数式のセルをカウントさせない... マナ 15/12/6(日) 18:22

【77729】Re:ＶＢＡで数式のセルをカウントさせない... 勉強不足 15/12/6(日) 19:03

【77731】Re:ＶＢＡで数式のセルをカウントさせない... マナ 15/12/6(日) 19:29

【77732】Re:ＶＢＡで数式のセルをカウントさせない... 勉強不足 15/12/6(日) 20:48

【77728】Re:ＶＢＡで数式のセルをカウントさせない... β 15/12/6(日) 19:02

【77730】Re:ＶＢＡで数式のセルをカウントさせない... 勉強不足 15/12/6(日) 19:10


	【77724】ＶＢＡで数式のセルをカウントさせない方...

勉強不足 - 15/12/6(日) 18:00 -


	引用なし

	パスワード

データシートを作成しており、それにナンバリングをさせたいんですが
どうしても文字が入っていない数式の入ったセルも読み込んでしまいます。
それを回避する方法を教えて下さい。

Ｂ４セル以降に文字が入力されており、それを読み込んでＡ４セル以降にナンバリングを行いたいです。しかし、Ｂセルには数式が入力されておりそれは消したくない為に、以上のような回避策が必要です。

Sub ナンバリング()
Dim i As Long
i = Cells(Rows.Count, 2).End(xlUp).Row
With Range(Cells(4, 1), Cells(i, 1))
.Formula = "=row()-3"
.Value = .Value
End With
End Sub '


	【77726】Re:ＶＢＡで数式のセルをカウントさせな...

マナ - 15/12/6(日) 18:22 -


	引用なし

	パスワード

▼勉強不足さん：

B列が数式で""になっているということでしょうか。
であればA列も数式で""にすればよいのでは？


	【77728】Re:ＶＢＡで数式のセルをカウントさせな...

β - 15/12/6(日) 19:02 -


	引用なし

	パスワード

▼勉強不足さん：

マナさんの指摘通りだと思いますが、ＶＢＡの処理練習ということなら。
以下はあくまで１つの方法です。

Sub Test()
　　Dim f As Range
　　Set f = Columns("B").Find(What:="*", LookAt:=xlWhole, LookIn:=xlValues, SearchDirection:=xlPrevious)
　　With Range("B4", f).Offset(, -1)
　　　　.Formula = "=row()-3"
　　　　.Value = .Value
　　End With
End Sub


	【77729】Re:ＶＢＡで数式のセルをカウントさせな...

勉強不足 - 15/12/6(日) 19:03 -


	引用なし

	パスワード

▼マナさん：
>▼勉強不足さん：
>
>B列が数式で""になっているということでしょうか。
>であればA列も数式で""にすればよいのでは？

返信ありがとうございます。
ご指摘の通りなのですが、このシートをさらにＡ1をキーにして引き込むマクロを組み込んであり、結局どこかで数式を読み込まない部分が必要なのです。
=IF(OR(D15="",D15=0),"",B15)
このような数式では読み込まれてしまい、関数でも対応不可能なのです。

もしくは、最終行を読み込んで、それ以降を削除するようなものを作ろうとも考えたのですが、私の能力では出来ませんでした。
だれか助けて下さい。


	【77730】Re:ＶＢＡで数式のセルをカウントさせな...

勉強不足 - 15/12/6(日) 19:10 -


	引用なし

	パスワード

▼β さん：

凄いです！！
希望通りの動作です。１週間も悩んでいたのが・・・・・
これを参考に、読み説いて更なるレベルアップに努めてゆきます。

本当にありがとうございました。

今現在は、参考書８冊とネットで修行中です・・・


	【77731】Re:ＶＢＡで数式のセルをカウントさせな...

マナ - 15/12/6(日) 19:29 -


	引用なし

	パスワード

▼勉強不足さん：

次は、こう回答するつもりでいました。

では、最初のコードで、数式入力しているところを

.Formula = "=if(b4="""","""",row()-3)"

とか。


	【77732】Re:ＶＢＡで数式のセルをカウントさせな...

勉強不足 - 15/12/6(日) 20:48 -


	引用なし

	パスワード

▼マナさん：

ちょっと自分のものに組み込んでみます。

皆さん、凄い知識と実力をお持ちで感服しております。

早く近づけるように頑張ります。

ありがとうございました。また宜しくお願いいたします。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

887 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free