Excel VBA質問箱 IV

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

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


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

【24419】入力規則 けん 05/4/21(木) 21:29 質問[未読]
【24422】Re:入力規則 G-Luck 05/4/21(木) 22:00 発言[未読]
【24424】Re:入力規則 けん 05/4/21(木) 22:25 お礼[未読]

【24419】入力規則
質問  けん  - 05/4/21(木) 21:29 -

引用なし
パスワード
                  引用なし                


         パスワード


2.2.
     入力シートと集計シートを作り。
入力シートに数値を入力後にENTERを押す事で集計シートに数値を飛ばし。
カーソルは次に入力するセルへ移動させる。
それと、既に集計シートに入っている数値を上書きせずにA1、A2、A3・・・と
言う感じで入力される数値を降下させる。
ENTERを押す事で3つの動作をさせる事が出来ると助かるのですが出来るでしょうか?


入力シート
   A   B
1 名前  abc
2 年齢   20

集計シート
   A   B
1 名前  年齢
2 aaa   10
3 abc   20
    ・
    ・

           

【24422】Re:入力規則
発言  G-Luck  - 05/4/21(木) 22:00 -

引用なし
パスワード
   ▼けん さん:

> 入力シートに数値を入力後にENTERを押す事で集計シートに数値を飛ばし。
チェンジイベントを利用して、

Private Sub Worksheet_Change(ByVal Target As Range)
  
  Worksheets("Sheet2").Cells(65536, Target.Row). _
    End(xlUp).Offset(1, 0).Value = Target.Value
  
End Sub


> 言う感じで入力される数値を降下させる。
入力セルだけの
右クリック>セルの書式設定>保護>ロックのチェックをはずし
ツール>保護>シートの保護>ロックされたセル範囲の選択のチェックをはずしてOK

入力ボタンを作るとか、ユーザーフォームで入力フォームを作るという方が確実に出来ますよ。

【24424】Re:入力規則
お礼  けん  - 05/4/21(木) 22:25 -

引用なし
パスワード
   ありがとうございました。
なんとか問題は解決しました。

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