[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ユーザーフォームが閉じない』(KISS)
いつも大変お世話になっております
ご教授頂けたら幸いです
Unload Me
上記コマンドでユーザーフォームを閉じるのですが
私のPC上だと正常に作動するのですが
サーバーにアップすると
ユーザーフォームが閉じなくなります
どの様にすれば良いか
大変お手数と思いますが
よろしくお願いいたします
とても不思議です
< 使用 Excel:Excel2010、使用 OS:Windows7 >
前後のコードはどうなっているのでしょうか。 ステップ実行しても結果は一緒ですか?
ステップ実行で閉じるようであれば、タイミングの問題だと思いますので、処理の後に DoEvents や Application.ScreenUpdating = True などを実行しても変わらないでしょうか。
(Mook) 2014/08/22(金) 17:41
早速のお返事ありがとうございます
コードは下記の様になります
ENDとUnload Me の間に教えてもらったコード入れてみましたが
変わりません
又単独のUnload Me コマンドボタンでは閉じます
お知恵をお貸しください よろしくお願いいたします
Private Sub CommandButton2_Click() '作成ボタン
On Error Resume Next
Dim intRow As Integer
'ここから付け足し
Dim lngRw As Long
ThisWorkbook.Activate
With Sheets("注文書発行一覧")
lngRw = .Cells(Rows.Count, 1).End(xlUp).Row '最終行 .Cells(lngRw + 1, 1) = lngRw + 997 '新規入力No TextBox33.Value = lngRw + 997
End With
' lngRw = TextBox33.Value + 3
''
' '転記
' With Worksheets("注文書発行一覧")
'
' TextBox33.Text = .Cells(lngRw + 1, "A").Value
'
' .Cells(lngRw, "A") = TextBox33.Value '注文No
' End With
'ここまで
'注文書に転記
With Worksheets("注文書")
.Range("H17") = TextBox33.Text '注文番号
.Range("I18") = TextBox5.Text '注文日 年
.Range("K18") = TextBox6.Text '注文日 月
.Range("M18") = TextBox7.Text '注文日 日
.Range("I19") = TextBox8.Text '納期 年
.Range("K19") = TextBox9.Text '納期 月
.Range("M19") = TextBox10.Text '納期 日
.Range("H21") = ComboBox1.Text '支払条件
.Range("Q5") = ListBox1.Text
.Range("H20") = ListBox2.Text
.Range("C4") = ComboBox2.Text
.Range("C3") = ComboBox3.Text
.Range("C1") = ComboBox4.Text
.Range("B2") = ComboBox5.Text
End With
'一覧へ転記
With Sheets("注文書発行一覧")
intRow = .Cells(Rows.Count, "B").End(xlUp).Row
i = 1
.Range("B" & i + intRow) = ComboBox2.Text '注文先 .Range("C" & i + intRow) = ComboBox3.Text '支店・営業所名
.Range("E" & i + intRow) = TextBox13.Text '品名 .Range("F" & i + intRow) = TextBox14.Text '数量 .Range("G" & i + intRow) = TextBox15.Text '金額 .Range("H" & i + intRow) = TextBox16.Text '見積??
.Range("I" & i + intRow) = TextBox17.Text '品名 .Range("J" & i + intRow) = TextBox18.Text '数量 .Range("K" & i + intRow) = TextBox19.Text '金額 .Range("L" & i + intRow) = TextBox20.Text '見積??
.Range("M" & i + intRow) = TextBox21.Text '品名 .Range("N" & i + intRow) = TextBox22.Text '数量 .Range("O" & i + intRow) = TextBox23.Text '金額 .Range("P" & i + intRow) = TextBox24.Text '見積??
.Range("Q" & i + intRow) = TextBox25.Text '品名 .Range("R" & i + intRow) = TextBox26.Text '数量 .Range("S" & i + intRow) = TextBox27.Text '金額 .Range("T" & i + intRow) = TextBox28.Text '見積??
.Range("U" & i + intRow) = TextBox29.Text '品名 .Range("V" & i + intRow) = TextBox30.Text '数量 .Range("W" & i + intRow) = TextBox31.Text '金額 .Range("X" & i + intRow) = TextBox32.Text '見積??
.Range("Y" & i + intRow) = TextBox5.Text '注文年 .Range("Z" & i + intRow) = TextBox6.Text '注文月 .Range("AA" & i + intRow) = TextBox7.Text '注文日
.Range("AB" & i + intRow) = TextBox8.Text '納期年 .Range("AC" & i + intRow) = TextBox9.Text '納期月 .Range("AD" & i + intRow) = TextBox10.Text '注文日
.Range("AE" & i + intRow) = ListBox2.Text '納入場所 .Range("AF" & i + intRow) = ComboBox1.Text '支払条件 .Range("AG" & i + intRow) = ComboBox5.Text '住所 .Range("AH" & i + intRow) = ListBox1.Text
End
Unload Me
End With
End Sub
(KISS) 2014/08/22(金) 18:02
あら、Unload Me の前に End がありますね。 ここでプログラムは終わっちゃいますよ? ステップ実行はしてみたでしょうか。
蛇足ですけれど、 On Error Resume Next も必要な処理ですか?
お呪いで入れるのはやめた方が良いと思います。 (Mook) 2014/08/22(金) 18:06
On Error Resume Next については いらない処理です
作ってる時に外すの忘れてしまいました
ご指摘ありがとうございます
また
END 編集の時に消すの忘れてました
ご指摘ありがとうございました
(KISS) 2014/08/22(金) 18:13
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.