Excel VBA質問箱 IV

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

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


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

56986 / 76732

←次へ　｜　前へ→


	【24487】Re:データ取得

ichinose - 05/4/23(土) 0:23 -


	引用なし

	パスワード

▼ＶＢＡ初心者さん：
>ありがとうございます。すごく勉強になりました。
>もうひとつ質問させてください。
>会社名,東北で新規登録する場合、ラベルコントロールに自動番号？1036
>(最終ID 1035な為)を表示する場合はどの様にしたらよいでしょうか？
本当は、↑これが目的でした？

>>会社名選択のコンボボックスコントロール（Combobox1）
>>最終ＩＤ表示用ラベルコントロール（ラベル1）
>>最終ＩＤ取得実行ボタン（Commandbutton1）を配置して下さい。
>>
>>では、コードです。
>>Userform1のモジュールに
>>'=================================================================
>>Private Sub UserForm_Initialize()
>>　 With Label1
>>　　　.Font.Size = 12
>>　　　.Caption = ""
>>　　　.TextAlign = fmTextAlignRight
>>　　　.SpecialEffect = fmSpecialEffectSunken
>>　　　.BackColor = &HFFFFFF
>>　　　End With
>>　 With Worksheets("sheet1")
>>　　　 Set rng1 = .Range("a1", .Cells(.Rows.Count, 1).End(xlUp))
>>　　　 With rng1
>>　　　　　.AdvancedFilter xlFilterCopy, , Worksheets("sheet2").Range("a1"), True
>>　　　　　End With
>>　　　 End With
>>　　With Worksheets("sheet2")
>>　　　 Set rng2 = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp))
>>　　　 If rng2.Row > 1 Then
>>　　　　　With ComboBox1
>>　　　　　　.List() = rng2.Value
>>　　　　　　.Style = fmStyleDropDownList
>>　　　　　　.ListIndex = 0
>>　　　　　　End With
>>　　　　　.Cells.ClearContents
>>　　　　　End If
>>　　　 End With
>>End Sub
>>'=================================================================
>>Private Sub CommandButton1_Click()
>>　 Dim rng As Range
>>　 Dim r_ad As String
>>　 With Worksheets("sheet1")
>>　　　Set rng = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp))
>>　　　If rng.Row > 1 Then
>>　　　　 r_ad = rng.Address(, , , True)
>>　　　　 rr = Evaluate("max(if(" & r_ad & "=""" & ComboBox1.Text & """,row(" & r_ad & ")))")
　　　　　 Label1.Caption = .Cells(rr, 2).Value+1
'変更は、これだけでよいと思います。
>>　　　　 End If
>>　　　End With
>>End Sub
>>

ウッシーさん、こんばんは。

>一部文章お借りしました。>chinose さん

いえいえ、私は、ウッシーさんや皆さんのコードをお借りしてますので・・。
（私のお仕事に・・）

0 hits

▼

【24479】データ取得 ＶＢＡ初心者 05/4/22(金) 22:09