Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10005 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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を押す事で集計シートに数値を飛ばし。
カーソルは次に入力するセルへ移動させる。
それと、既に集計シートに入っている数値を上書きせずにＡ１、Ａ２、Ａ３・・・と
言う感じで入力される数値を降下させる。
ENTERを押す事で３つの動作をさせる事が出来ると助かるのですが出来るでしょうか？


入力シート
　　　A　　　B
１　名前　　abc
２　年齢　　　20

集計シート
　　　A　　　B
１　名前　 年齢
２　aaa　　　10
３　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 -
引用なし
パスワード
   ありがとうございました。
なんとか問題は解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10005 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free