Excel VBA質問箱 IV

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

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


4369 / 13646 ツリー ←次へ | 前へ→

【57100】セルとリンクしたTextBoxのデータを別シートのセルに入力するには? とも 08/7/24(木) 12:14 質問[未読]
【57101】Re:セルとリンクしたTextBoxのデータを別シ... kanabun 08/7/24(木) 12:51 発言[未読]
【57103】Re:セルとリンクしたTextBoxのデータを別シ... とも 08/7/24(木) 14:21 お礼[未読]

【57100】セルとリンクしたTextBoxのデータを別シ...
質問  とも  - 08/7/24(木) 12:14 -

引用なし
パスワード
   Excel2000は使用しています。
UserFormにAccessのような入力用のフォームを作って
入力していますが、過去入力された行のデータを
このフォームで見ることは出来ますが
見ている行のデータを別のシートの
特定した行に入力したいのですがどのようにしたら良いのか
分かりません、どなたか教えていただけると幸いです。
宜しくお願いします。

Dim FirstRow As Long
Dim LastRow As Long
Dim DestRow As Long

Private Sub UserForm_Initialize()  
  Worksheets("データベース").Select
  FirstRow = Range("A1").CurrentRegion.Row + 1
  LastRow = Range("A1").CurrentRegion.Rows.Count
  DestRow = LastRow + 1
  LinkCell 
End Sub

Private Sub CommandButton1_Click()  
  DestRow = FirstRow
  LinkCell
End Sub

Private Sub CommandButton2_Click() 
  If DestRow > FirstRow Then
    DestRow = DestRow - 1
    LinkCell
  End If
End Sub

Private Sub CommandButton3_Click()  
  If DestRow < LastRow Then
    DestRow = DestRow + 1
    LinkCell
  End If
End Sub

Private Sub CommandButton4_Click()  
  DestRow = LastRow
  LinkCell
End Sub

Private Sub CommandButton5_Click()  
  LastRow = LastRow + 1
  DestRow = LastRow
  LinkCell  
End Sub

Sub LinkCell()
  Dim strRang As String  
  strRang = "A" & DestRow
  TextBox1.ControlSource = strRang  
  strRang = "B" & DestRow
  TextBox2.ControlSource = strRang  
  strRang = "C" & DestRow
  TextBox3.ControlSource = strRang  
  strRang = "D" & DestRow
  TextBox4.ControlSource = strRang  
  Label1.Caption = DestRow - 1 & " / " & LastRow - 1  
End Sub

【57101】Re:セルとリンクしたTextBoxのデータを別...
発言  kanabun  - 08/7/24(木) 12:51 -

引用なし
パスワード
   ▼とも さん:
>見ている行のデータを別のシートの
>特定した行に入力したいのですが

深く考えてませんが、
  別のシートのセル.Value = TextBox1.Text
とかでは
だめですか?

【57103】Re:セルとリンクしたTextBoxのデータを別...
お礼  とも  - 08/7/24(木) 14:21 -

引用なし
パスワード
   kanabunさん早々のご教授有難う御座いました。
教えていただいた通りやってみました。
ちゃんと出来ました有難うございます。
また、いろいろご質問させていただきます。

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