Results of 1 - 1 of about 37697 for IF (0.007 sec.)
- [[20210212110552]]
- #score: 1591
- @digest: e1a459232bf270d7d42ad383c37eae81
- @id: 86700
- @mdate: 2021-02-13T00:45:42Z
- @size: 4507
- @type: text/plain
- #keywords: yd (25358), katanohosi (19497), ◯. (12255), bufrng (10516), tmprng (8478), strworkbookname3 (7380), siru (6309), sheets (3266), ケア (2522), range (2415), 図的 (1794), d20 (1260), 明示 (1237), doevents (1199), 2021 (1195), d15 (1185), then (1146), 金) (1084), ィは (911), は明 (871), アレ (786), tkit (780), workbooks (774), は指 (728), formula (712), と0 (668), プ処 (631), 記載 (616), スミ (605), 。プ (579), （ka (537), ロパ (526)
- 『セルの値が0の場合』（katanohosi）
数値を表に代入して記載させたのですが、0は不要なため、下記の構文で 削除させようとしています。 普通に走らせると0が残ってしまいます。 ステップインで進めると、ちゃんと0を消してくれます。 ワンテンポ遅らせるためにDoEventsを記載しましたが、状況は変わりません。 何が原因か分からず困っています。 どなたか教えて下さい。よろしくお願いします。 DoEvents Workbooks(strWorkBookName3).Activate If Sheets(yd).Range("D15") = "0" Then Range("D15") = "" If Sheets(yd).Range("D20") = "0" Then Range("D20") = "" If Sheets(yd).Range("C32") = "0" Then Range("C32") = "" If Sheets(yd).Range("D32") = "0" Then Range("D32") = "" If Sheets(yd).Range("C44") = "0" Then Range("C44") = "" If Sheets(yd).Range("D44") = "0" Then Range("D44") = "" If Sheets(yd).Range("C47") = "0" Then Range("C47") = "" If Sheets(yd).Range("D47") = "0" Then Range("D47") = "" If Sheets(yd).Range("C50") = "0" Then Range("C50") = "" If Sheets(yd).Range("D50") = "0" Then Range("D50") = "" If Sheets(yd).Range("K17") = "0" Then Range("K17") = "" If Sheets(yd).Range("L17") = "0" Then Range("L17") = "" If Sheets(yd).Range("K17") = "0" Then Range("I17") = "" If Sheets(yd).Range("L17") = "0" Then Range("J17") = "" If Sheets(yd).Range("H32") = "0" Then Range("H32") = "" If Sheets(yd).Range("I32") = "0" Then Range("I32") = "" If Sheets(yd).Range("J32") = "0" Then Range("J32") = "" If Sheets(yd).Range("G44") = "0" Then Range("G44") = "" If Sheets(yd).Range("H44") = "0" Then Range("H44") = "" If Sheets(yd).Range("G45") = "0" Then Range("G45") = "" If Sheets(yd).Range("H45") = "0" Then Range("H45") = "" If Sheets(yd).Range("G47") = "0" Then Range("G47") = "" If Sheets(yd).Range("H47") = "0" Then Range("H47") = "" If Sheets(yd).Range("F15") = "0" Then Range("F15") = "" If Sheets(yd).Range("F20") = "0" Then Range("F20") = "" If Sheets(yd).Range("D23") = "0" Then Range("D23") = "" If Sheets(yd).Range("D26") = "0" Then Range("D26") = "" If Sheets(yd).Range("F32") = "0" Then Range("F32") = "" ＜ 使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- 別の場所で0を入れているということはないか? （ねむねむ） 2021/02/12(金) 11:17 ---- >0は不要なため オプションでの設定ではダメなんですか。 （SIRU） 2021/02/12(金) 11:31 ---- ActiveSheetがSheets(yd)でないとかはないですか? （tkit） 2021/02/12(金) 11:39 ---- 直接の回答ではありません。 シートは指定しましょう。 プロパティは明示しましょう。(Value/Text/Formula) ◯.Value = "" は ◯.Clear または ◯.ClearContents の方がいいのでは? （OK） 2021/02/12(金) 11:46 ---- ねむねむさま ありがとうございます。 確認しましたが、追加の書込みはありませんでした。 （katanohosi） 2021/02/12(金) 12:39 ---- SIRUさま ありがとうございます。 他で0の記載が必要な箇所がありますので、オプション設定は出来ないのです。 （katanohosi） 2021/02/12(金) 12:41 ---- tkitさま ありがとうございます。 シートの指定に間違いはありませんでした。 （katanohosi） 2021/02/12(金) 12:42 ---- ありがとうございました。 ご指摘いただいた箇所の修正で、うまく行きました。 ありがとうございます!! シートは指定しましょう。 プロパティは明示しましょう。(Value/Text/Formula) ◯.Value = "" （katanohosi） 2021/02/12(金) 12:44 ---- こういう、左辺と右辺のセルアドレスが違うのは、 If Sheets(yd).Range("K17") = "0" Then Range("I17") = "" If Sheets(yd).Range("L17") = "0" Then Range("J17") = "" ケアレスミスなのか、意図的なのかわからないんですけど、 大丈夫なんでしょうか? （´・ω・`） 2021/02/12(金) 13:13 ---- 試してないけど、1つずつ書くのではなく、ループ処理でいいんじゃないですかね Sub さんぷる() Dim tmpRNG As Range, bufRNG As Range Stop 'ブレークポイントの代わり For Each tmpRNG In Worksheets("hoge").Range("D15,F15,I18:L18,D20,F20,D23,D26,C32,F32,H32:J32,C44:D44,G44:H44,B47,D47,G47:H47,C50:D50") If tmpRNG.Text = 0 Then If bufRNG Is Nothing Then Set bufRNG = Workbooks("aaa").Worksheets("bbb").Range(tmpRNG.Address) Else Set bufRNG = Union(bufRNG, Workbooks("aaa").Worksheets("bbb").Range(tmpRNG.Address)) End If End If Next If Not bufRNG Is Nothing Then bufRNG.ClearContents End Sub （もこな2） 2021/02/13(土) 09:45... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202102/20210212110552.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97060 documents and 608319 words.
訪問者：