[[20180302102015]] 『Monthで求めた時一桁の場合頭に0をつけたい』(かすみ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『Monthで求めた時一桁の場合頭に0をつけたい』(かすみ)

お世話になります
教えてください
表題についてですが

変数から月を割り出して次に検索をかけようとすると
1月の時 10月にヒットしてしまいます

どの様にすれば 1月は1月にヒットしますか?
お手数お掛けしますが 宜しくお願いいたします

tm = Month(変数)

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 tm = Range("A57:G68").Find(tmD1, LookAt:=xlWhole).Row

lookAtで条件つけたら 1月でヒットしましたが 10月もヒットしてしまいます
10月をなくす方法を教えてください
(かすみ) 2018/03/02(金) 10:47


 >1月でヒットしましたが 10月もヒットしてしまいます 

 1月とか、10月とか、データの有り様を表現するにはちょっと厳密性に欠けていますよ?

 こっちで再現できるように、その二つのセルにはどんなデータが入っているのか説明して下さい。

 説明できない場合は、どこか空いているセルに下式を入力して、
 何が返ってくるか教えて下さい。

 10月が入っているセルが、F60セルだとして・・
 空いているセルに ="TYPE"&TYPE(F60)&"#"&F60&"#Format"&CELL("format",F60)

  のような表示になります。
  ↓
  TYPE1#43374#FormatD3
  TYPE2#10月#FormatG

(半平太) 2018/03/02(金) 11:13


半平太様
有難う御座います

教えられた式入力時の答えがこちらになります
何卒宜しくお願いいたします

1月
TYPE1#1#FormatG
10月
TYPE1#10#FormatG

(かすみ) 2018/03/02(金) 14:51


 >TYPE1#10#FormatG

 フーム、普通の「10」ですねぇ・・

 こちらでテストした限りでは、10はヒットしません。

 第一、「1」がなければ、実行時エラーになります。

 下のチェックプログラムを実行すると
 こんなメッセージが出ますか?
  ↓
  ヒット!、検索値1で、ヒットしたのは「10」
                     ↑
                    ここが1じゃなくて、10が本当に出て来るんですか?

 Sub Check()
  Dim adr As Range
  Dim i As Integer

  i = 1

  Set adr = Range("A57:G68").Find(i, , xlValues, xlWhole)

  MsgBox "ヒット!、検索値1で、ヒットしたのは「" & adr.Value & "」"
 End Sub

(半平太) 2018/03/02(金) 15:29


 追加です。

 >Monthで求めた時一桁の場合頭に0をつけたい

 あと、タイトルと質問内容は、どういう関係にあるんですか? 
 どこにも、0を付けるなんて話が出ていないんですけども。

 tmD1 って本当に「1」なんですか?

(半平太) 2018/03/02(金) 15:32


 >tm = Month(変数) 

 >tm = Range("A57:G68").Find(tmD1, LookAt:=xlWhole).Row

 上側の tm は tmD1 の間違いじゃないですか?

(半平太) 2018/03/02(金) 15:38


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.