|
▼み〜 さん:
こんばんは。
>A列:職種
>B列:新規
>C列:氏名
>D列:職員番号
>E列:配属先
>を記入している表(シート名は、一覧)があります。
>
>(General)(Declarations)では、以下を宣言済みです
>Dim TopGyo As Integer
>Dim BotGyo As Integer
>Dim NowGyo As Integer
↑ここ、Dim---→Publicに替えてください。
で、いけると思いますが・・・。
>
>この時、以下のTopGyo BotGyo NowGyo全部が0にしかならないのです。
>IchiがA0になりエラーが出てしまいます。
>原因はどこにあるのかヒントをいただけませんか?
>よろしくおねがいします。
>
次回は、↓のコードがどこに書かれているかも教えて下さいね!!
たぶん、TopGyo 、 BotGyo、 NowGyoが宣言されているモジュールとは
違うモジュールに書かれているのでは・・と、思います。
とすると、
>--------------------------------------
>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
|
|