| |
▼み〜 さん：
ははっ、これでＯＫだとばっかり思ってたもので、寝るところでした。
>
>DimってところをPublicにしてみましたが...
>残念ながら同じ結果でした。
>
>Private Sub Nyuryoku_Initialize()と、Sub IchiHyoji()とTopGyo,BotGyo,NowGyoの宣言は、同じところだと思います。
>Nyuryokuというフォームに全部書いています。よくわかっていないのでひょっとして何かへんなこと言ってますか？
Dimの宣言から、プロシジャーNyuryoku_Initialize、IchiHyojiが全て
Nyuryokuというユーザーフォームのモジュールに記述されているとしたら、
Publicにする必要はありません。
このプロシジャーNyuryoku_Initializeは、Initializeイベントのプロシジャーという
ことですね？
そうだとしたら、フォームが表示される前にNyuryoku_Initializeを実行しないはずなんですが、どこかで呼び出してるのかな？
とりあえず、以下のコードをNyuryokuというユーザーフォームのモジュールに
記述して確認して下さい。
'=================================================================
Dim TopGyo As Integer
Dim BotGyo As Integer
Dim NowGyo As Integer
'=================================================================
Private Sub UserForm_Initialize()
Nyuryoku_Initialize
End Sub
'=================================================================
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
MsgBox Ichi
'Label1.Caption = "全" & BotGyo - 1 & "件中 " & NowGyo - 1 & "件目"
End Sub
これでも「A0」というように表示されてしまいますか？
|
|
