Excel VBA質問箱 IV

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

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


48564 / 76732 ←次へ | 前へ→

【33103】Re:超初心者で何もわかりません。
回答  Hirofumi  - 06/1/2(月) 23:54 -

引用なし
パスワード
   書き忘れましたが
コードは、UserFormのコードモジュールに記述して下さい
また、車体の番号が、数値ならコードの以下の部分を修正して下さい
「Private Function GetIDNoRow」の中で

  Else
    '車体番号を探索
'    lngFound = DataSearch(vntID, rngScope, lngOver)
    '車体番号のセル値が数値として入力されている場合は以下の様に変更
    lngFound = DataSearch(CLng(vntID), rngScope, lngOver) '★数値の場合、上記をこの様にする
    lngCount = rngScope.Rows.Count
  End If

其れと

        'セルの書式を文字列に設定
'        .Offset(lngOver).NumberFormatLocal = "@" '★この行コメントアウト若しくは、削除
        '車体番号を書き込み
        .Offset(lngOver).Value = vntID


後、当方のテストをSheet3で行いましたので
「Private Sub UserForm_Initialize()」の中が以下の様に成っていますので
あきこさんが、出力するシートにシート名を変更して下さい

  'Sheet2出力表のA1セルを基準とする(列見出し「商品ID」のセル位置)
'  Set rngResult = Worksheets("Sheet1").Cells(2, "A")
  Set rngResult = Worksheets("Sheet3").Cells(2, "A")
2 hits

【33099】超初心者で何もわかりません。 あきこ 06/1/2(月) 21:22 質問
【33100】Re:縦に番号、横に日付の表に一致するセル... かみちゃん 06/1/2(月) 21:38 回答
【33101】Re:超初心者で何もわかりません。 Hirofumi 06/1/2(月) 23:15 回答
【33103】Re:超初心者で何もわかりません。 Hirofumi 06/1/2(月) 23:54 回答
【33248】Re:超初心者で何もわかりません。 あきこ 06/1/5(木) 20:33 お礼

48564 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free