編集履歴

質問編集履歴

質問内容を初期化

2021/09/29 14:18

投稿

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- ~~【※急募】~~リストボックスでセルの~~値を取得からの更新(VBA)~~
1	+ リストボックスでシートの複数選択と時間表記

test CHANGED Viewed

@@ -6,33 +6,17 @@
-リストボックスで例えば10/3を選んだら、４列目の11:00と19:00を
-修正出来るようにしたいのですが、10/1の時刻のところに上書きされてしまいました。
-特にVBAに明るくない上司から急かれながら色んなものを参考にしながら進めていますが、なかなか上手くいきません・・。
-リストボックス用の変数の宣言が必要なのでしょうか？
+・一つのリストボックスで複数のシートを選択するのは可能なのか
-行の位置特定に何が必要でしょうか？
-ご教授お願い致します。
-**若しくは、リストボックスを使わないやり方もあれば教えていただけると大変助かります・・**。
+・編集フォームのテキストボックスで時間が小数点表記になってしまう
-![イメージ説明](8aba26a87bbf9f09be2d91a51f2e30de.png)
+以上の二点が問題点、疑問点として挙がっています。
 ### 発生している問題・エラーメッセージ
@@ -42,7 +26,7 @@
-・選択した日付の出勤・退勤時間を取得して変更出来るようにしたい
@@ -268,7 +252,7 @@
   Dim tgtRow As Long
-  tgtRow = 　　　　　　　　　　　　　　　　　　　　　　　　'行選択
+  tgtRow =
   With Sheet2
@@ -288,7 +272,7 @@
   Dim tgtRow As Long
-  tgtRow = 　　                                '行選択、選択した行が対象になるようにしたい
+  tgtRow =
   With Sheet2
@@ -306,21 +290,7 @@
-tgtRow = Listbox1.Value
-※変数を定義してくださいのエラー
-tgtRow = 編集画面フォーム.ListBox1.ListIndex + 2
-※「出勤時刻」と「退勤時刻」というラベルを取得
-以降、+3にすると10/1のものが、+４で10/2のものが取得という状態になり
-選択した部分の変更にならない。
+DATE型を使用。
@@ -328,20 +298,6 @@
-Dim tgtRow As Long
-  tgtRow = 　　                                '行選択、選択した行が対象になるようにしたい
-  With Sheet2
-    Me.tx2.Value = .Cells(tgtRow, 2).Value　　　　　　　　　'出勤時間
-    Me.tx3.Value = .Cells(tgtRow, 3).Value　　　　　　　　　　　'退勤時間
-  End With
-という取得した行を修正する処理を、 UserForm_Initializeに置けば良いのか
+シートの「出勤時間」と「退勤時間」のセルは「10：00」のような時間表記になるように設定
-修正ボタンクリック時に置けばいいのかわからないので、今は二か所に置いています・・・。

文章の追加

2021/09/29 14:18

投稿

milk1218

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- リストボックスでセルの値を取得からの更新(VBA)
1	+ 【※急募】リストボックスでセルの値を取得からの更新(VBA)

test CHANGED Viewed

@@ -26,6 +26,12 @@
+**若しくは、リストボックスを使わないやり方もあれば教えていただけると大変助かります・・**。
 ![イメージ説明](8aba26a87bbf9f09be2d91a51f2e30de.png)
 ### 発生している問題・エラーメッセージ

情報追加

2021/09/29 14:06

投稿

milk1218

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- リストボックスでの~~選択と対象~~の~~シートが複数ある場合~~(VBA)
1	+ リストボックスでセルの値を取得からの更新(VBA)

test CHANGED Viewed

@@ -6,19 +6,27 @@
-リストボックスにそれぞれのシートに登録されている年月日・時刻を表示させたいのですが
+リストボックスで例えば10/3を選んだら、４列目の11:00と19:00を
-一つのリストボックスに複数のシートのリストを表記させることは可能なのでしょうか？
-また、10/3を選んだら10/1の時刻のところに上書きされてしまいました。
+修正出来るようにしたいのですが、10/1の時刻のところに上書きされてしまいました。
-![イメージ説明](f9d8cf700646549c7b43f20424ee042f.png)
+特にVBAに明るくない上司から急かれながら色んなものを参考にしながら進めていますが、なかなか上手くいきません・・。
+リストボックス用の変数の宣言が必要なのでしょうか？
+行の位置特定に何が必要でしょうか？
+ご教授お願い致します。
-![イメージ説明](9ef9a71a4192124315606a1e8c2c74e8.png)
+![イメージ説明](8aba26a87bbf9f09be2d91a51f2e30de.png)
 ### 発生している問題・エラーメッセージ
@@ -28,9 +36,7 @@
-・リストに表記する対象シートを複数選択したい
-・一番上の10/1の時刻の部分に上書きされてしまう
+・選択した日付の出勤・退勤時間を取得して変更出来るようにしたい
@@ -236,7 +242,7 @@
 Dim lastrow As Long
-Sheets("10", "11", "12").Select　　　　　　　　'←シート三枚を選んでそのセルをリストに表示させたい
+Sheets("10", "11", "12").Select
 With ListBox1
@@ -246,7 +252,7 @@
 .ColumnWidths = "70;50;50"
-.RowSource = "10!" & Range("A2", "E2" & lastrow).Address　　　'←ここでも、11と12を選びたい
+.RowSource = "10!" & Range("A2", "E2" & lastrow).Address
 End With
@@ -256,13 +262,13 @@
   Dim tgtRow As Long
-  tgtRow = 2
+  tgtRow = 　　　　　　　　　　　　　　　　　　　　　　　　'行選択
   With Sheet2
-    .Cells(tgtRow, 2).Value = Me.tx2.Value
+    .Cells(tgtRow, 2).Value = Me.tx2.Value　　　　　　'出勤時間
-    .Cells(tgtRow, 3).Value = Me.tx3.Value
+    .Cells(tgtRow, 3).Value = Me.tx3.Value　　　　　'退勤時間
   End With
@@ -276,13 +282,13 @@
   Dim tgtRow As Long
-  tgtRow = 2                                 'ここで行選択、選択した行が対象になるようにしたい
+  tgtRow = 　　                                '行選択、選択した行が対象になるようにしたい
   With Sheet2
-    Me.tx2.Value = .Cells(tgtRow, 2).Value
+    Me.tx2.Value = .Cells(tgtRow, 2).Value　　　　　　　　　'出勤時間
-    Me.tx3.Value = .Cells(tgtRow, 3).Value
+    Me.tx3.Value = .Cells(tgtRow, 3).Value　　　　　　　　　　　'退勤時間
   End With
@@ -294,18 +300,42 @@
+tgtRow = Listbox1.Value
+※変数を定義してくださいのエラー
+tgtRow = 編集画面フォーム.ListBox1.ListIndex + 2
+※「出勤時刻」と「退勤時刻」というラベルを取得
+以降、+3にすると10/1のものが、+４で10/2のものが取得という状態になり
+選択した部分の変更にならない。
 ### 補足情報（FW/ツールのバージョンなど）
+Dim tgtRow As Long
+  tgtRow = 　　                                '行選択、選択した行が対象になるようにしたい
+  With Sheet2
-・「10」、「11」、「12」と日付登録する月のシートが三枚ある
+    Me.tx2.Value = .Cells(tgtRow, 2).Value　　　　　　　　　'出勤時間
-・日付が小数点表記になり、「10：00」⇒「12:00」などの変更が出来ない(※こちらはおかげさまで解決致しました！！)
+    Me.tx3.Value = .Cells(tgtRow, 3).Value　　　　　　　　　　　'退勤時間
+  End With
+という取得した行を修正する処理を、 UserForm_Initializeに置けば良いのか
+修正ボタンクリック時に置けばいいのかわからないので、今は二か所に置いています・・・。

補足

2021/09/29 12:26

投稿

milk1218

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- リストボックスでの選択と対象のシートが複数ある場合
1	+ リストボックスでの選択と対象のシートが複数ある場合(VBA)

test CHANGED Viewed

@@ -276,7 +276,7 @@
   Dim tgtRow As Long
-  tgtRow = 2
+  tgtRow = 2                                 'ここで行選択、選択した行が対象になるようにしたい
   With Sheet2

文章の改変

2021/09/29 05:12

投稿

milk1218

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- リストボックスで対象のシートが複数ある場合
1	+ リストボックスでの選択と対象のシートが複数ある場合

test CHANGED Viewed

@@ -10,6 +10,8 @@
 一つのリストボックスに複数のシートのリストを表記させることは可能なのでしょうか？
+また、10/3を選んだら10/1の時刻のところに上書きされてしまいました。
@@ -28,6 +30,8 @@
 ・リストに表記する対象シートを複数選択したい
+・一番上の10/1の時刻の部分に上書きされてしまう
 ```

一点解決したので文章改変

2021/09/29 02:14

投稿

milk1218

スコア20

test CHANGED Viewed

	@@ -1 +1 @@
1	- リストボックスで~~数値修正&~~対象のシートが複数ある場合
1	+ リストボックスで対象のシートが複数ある場合

test CHANGED Viewed

@@ -6,27 +6,17 @@
-リストで日付を選択し、その日の出勤時間と退勤時間で修正があれば数値を書き換えてセルの値を上書きしたいと考えています。
-ただ、画像のように時間の表記が「10:00」のように文字ではないものを書き換える場合
-どのように書けば良いのかが分かりません。
-やってみたところ、リストボックスを開いた後の修正画面の際に小数点の数字が表示されてしまします・・・。
-（※試しに出勤・退勤時間のところを「りんご」とかの文字列にしてリストボックスを開いて
-テキストボックスで「みかん」と入力して修正ボタンを押したところ、セルは上書きされました)
+リストボックスにそれぞれのシートに登録されている年月日・時刻を表示させたいのですが
+一つのリストボックスに複数のシートのリストを表記させることは可能なのでしょうか？
 ![イメージ説明](f9d8cf700646549c7b43f20424ee042f.png)
-![イメージ説明](ef96e66e8b027a50b0b2ad23ab0f5402.png)
+![イメージ説明](9ef9a71a4192124315606a1e8c2c74e8.png)
 ### 発生している問題・エラーメッセージ
@@ -34,7 +24,7 @@
 ```
-・日付が小数点表記になり、「10：00」⇒「12:00」などの変更が出来ない
 ・リストに表記する対象シートを複数選択したい
@@ -300,16 +290,18 @@
-試しに、セルを上書きする修正ボタンの変数のデータ型をDATEやIntegerにして
-みましたが変わりませんでした。
 ### 補足情報（FW/ツールのバージョンなど）
-・時間表記のセルのところはシート上で、表示形式は「時刻」にしてある
 ・「10」、「11」、「12」と日付登録する月のシートが三枚ある
+・日付が小数点表記になり、「10：00」⇒「12:00」などの変更が出来ない(※こちらはおかげさまで解決致しました！！)

文章の漏れを補足

2021/09/29 02:11

投稿

milk1218

スコア20

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -34,7 +34,11 @@
 ```
-日付が小数点表記になり、「10：00」⇒「12:00」などの変更が出来ない
+・日付が小数点表記になり、「10：00」⇒「12:00」などの変更が出来ない
+・リストに表記する対象シートを複数選択したい
 ```
@@ -307,3 +311,5 @@
 ・時間表記のセルのところはシート上で、表示形式は「時刻」にしてある
+・「10」、「11」、「12」と日付登録する月のシートが三枚ある