Excel VBA質問箱 IV

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

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


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

70617 / 76734

←次へ　｜　前へ→


	【10621】0にしかならない？

み～ - 04/2/3(火) 20:24 -


	引用なし

	パスワード

A列：職種
B列：新規
C列：氏名
D列：職員番号
E列：配属先
を記入している表（シート名は、一覧）があります。

（General)（Declarations)では、以下を宣言済みです
Dim TopGyo As Integer
Dim BotGyo As Integer
Dim NowGyo As Integer

この時、以下のTopGyo BotGyo NowGyo全部が0にしかならないのです。
IchiがA0になりエラーが出てしまいます。
原因はどこにあるのかヒントをいただけませんか？
よろしくおねがいします。

--------------------------------------
Private Sub Nyuryoku_Initialize()

　　Worksheets("一覧").Select
　　
　　TopGyo = Worksheets("一覧").Range("A1").CurrentRegion.Row + 1
　　BotGyo = Worksheets("一覧").Range("A1").CurrentRegion.Rows.Count
　　
　　NowGyo = TopGyo
　　
　　IchiHyoji
　　
End Sub

--------------------------------------
Sub IchiHyoji()

　　Dim Ichi As String
　　
　　Ichi = "A" & NowGyo
　　職種.ControlSource = Ichi

　　Label1.Caption = "全" & BotGyo - 1 & "件中　" & NowGyo - 1 & "件目"
　　
End Sub

0 hits

▼

【10621】0にしかならない？ み～ 04/2/3(火) 20:24

≪