Excel VBA質問箱 IV

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

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


56992 / 76738 ←次へ | 前へ→

【24487】Re:データ取得
発言  ichinose  - 05/4/23(土) 0:23 -

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

>>会社名選択のコンボボックスコントロール(Combobox1)
>>最終ID表示用ラベルコントロール(ラベル1)
>>最終ID取得実行ボタン(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】データ取得 VBA初心者 05/4/22(金) 22:09 質問
【24480】Re:データ取得 ponpon 05/4/22(金) 22:53 発言
【24481】Re:データ取得 VBA初心者 05/4/22(金) 23:33 質問
【24483】Re:データ取得 ichinose 05/4/22(金) 23:45 発言
【24484】Re:データ取得 訂正 ichinose 05/4/22(金) 23:58 発言
【24519】Re:データ取得 訂正 ponpon 05/4/23(土) 23:31 質問
【24521】Re:データ取得 訂正 ichinose 05/4/24(日) 1:02 発言
【24529】Re:データ取得 訂正 ponpon 05/4/24(日) 14:10 お礼
【24485】Re:データ取得 ウッシ 05/4/23(土) 0:03 回答
【24486】Re:データ取得 VBA初心者 05/4/23(土) 0:12 質問
【24487】Re:データ取得 ichinose 05/4/23(土) 0:23 発言
【24489】Re:データ取得 VBA初心者 05/4/23(土) 1:00 お礼
【24492】Re:データ取得 ichinose 05/4/23(土) 9:06 発言
【24493】Re:データ取得 ウッシ 05/4/23(土) 9:40 発言

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