Excel VBA質問箱 IV

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

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


53566 / 76732 ←次へ | 前へ→

【27978】再度ファイルを開いた時に文字がある事を...
発言  素人  - 05/8/25(木) 20:31 -

引用なし
パスワード
   下記の様にプログラムを書いているのですが、現在はPosを3と指定している為
再度ファイルを開いた時に、セルの3行目から上書きされるのですが、
上書きされない方法はないでしょうか???

それと現在は下記の様に書き込む内容が増えれば増える程、プログラムも沢山
になっているのですが、他に良い方法があれば教えて下さい。
このままではCelNo100ぐらいまで永遠と書き込まないといけないかと思うと
ゾットしています。

Dim CelNo As String
Dim CelNo1 As String
Dim Pos As Integer

Private Sub userform_Initialize()
  SheetNo = "伝票一覧"
  Pos = 3
  CelNo = "a" & Pos
  CelNo1 = "b" & Pos
  
End Sub

Private Sub OKBtn_Click()

  With Worksheets("伝票一覧")
  .Range(CelNo) = Worksheets("確認表").Range("k5")
  .Range(CelNo1) = Worksheets("確認表").Range("d7")
  
  Pos = Pos + 1
  CelNo = "a" & Pos
  CelNo1 = "b" & Pos
 
  End With
End Sub

よろしくお願いします。

0 hits

【27978】再度ファイルを開いた時に文字がある事を... 素人 05/8/25(木) 20:31 発言
【27979】Re:再度ファイルを開いた時に文字がある... ponpon 05/8/25(木) 21:02 発言
【27981】Re:再度ファイルを開いた時に文字がある... 素人 05/8/25(木) 21:43 発言
【27985】Re:再度ファイルを開いた時に文字がある... ponpon 05/8/25(木) 22:15 発言
【28013】Re:再度ファイルを開いた時に文字がある... 素人 05/8/26(金) 14:32 質問
【28043】Re:再度ファイルを開いた時に文字がある... Hirofumi 05/8/27(土) 8:10 回答
【28051】Re:再度ファイルを開いた時に文字がある... 素人 05/8/27(土) 14:13 質問
【28053】Re:再度ファイルを開いた時に文字がある... Hirofumi 05/8/27(土) 16:38 回答
【28066】Re:再度ファイルを開いた時に文字がある... 素人 05/8/27(土) 20:08 お礼
【28067】Excelの計算式を教えて下さい。 素人 05/8/27(土) 20:20 質問
【28068】Re:Excelの計算式を教えて下さい。 かみちゃん 05/8/27(土) 20:33 回答
【28070】Re:Excelの計算式を教えて下さい。 りん 05/8/27(土) 21:01 発言
【28071】Re:Excelの計算式を教えて下さい。 かみちゃん 05/8/27(土) 21:18 発言
【28072】Re:Excelの計算式を教えて下さい。 素人 05/8/27(土) 21:33 お礼

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