戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
UserFormより値をシートに転記しても同じ行に

    [191748] UserFormより値をシートに転記しても同じ行に-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/04/15(14:39))
    □U R L/
      再度お世話になります。
      OSはwin10  エクセルは2016 です。
      
      UserFormのSheetへの転記の野のコードは下記です。
      
      いくら悩んでもわからず困り果てています。
      
      何が悪いのかそれとも不具合分からずご指導戴けませんでしょうか。
      
      
      Private Sub CommandButton1_Click()
          '
          y = 2
          Do While Cells(y, 2) <> ""
              y = y + 1
          Loop
          Cells(y, 1) = TextBox1.Text
          Cells(y, 4) = TextBox2.Text
          Cells(y, 5) = TextBox3.Text
          Cells(y, 6) = TextBox4.Text
          Cells(y, 7) = TextBox5.Text
          Cells(y, 8) = TextBox6.Text
          Cells(y, 9) = TextBox7.Text
          
          TextBox1.Text = Format(Date, "mm/dd")
          TextBox2.Text = ""
          TextBox3.Text = ""
          TextBox4.Text = ""
          TextBox5.Text = ""
          TextBox6.Text = ""
          TextBox7.Text = ""
          
          TextBox1.SetFocus
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191749] Re[1]: UserFormより値をシートに転記しても同じ行に-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/04/15(15:50))
    □U R L/
      先の質問との関連が分からないですね。
      
      と言うか、こっちで一緒に処理すれば、面倒なことが減る気がしますけども。
      
      いずれにしても、何がしたいのか言葉の説明がないと、
      何をアドバイスすべきなのかも分からないです。
      
      7つだと大変なので、
      取り敢えず、テキストボックスが2つしかないと仮定して、
      ご説明いただけないですか?
      




    [191750] Re[2]: UserFormより値をシートに転記しても同じ行に-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/04/15(16:24))
    □U R L/

      A列 入力日
      Cells(y, 1) = TextBox1.Text
      D列 部屋名 先ほどの質問 例えば15と入れたら202I
      Cells(y, 4) = TextBox2.Text
      E列 顧客名(性) ※1
      Cells(y, 5) = TextBox3.Text
        F列 顧客名(名)
      Cells(y, 6) = TextBox4.Text
        G列 入所日
      Cells(y, 7) = TextBox5.Text
        H列 退所日
      Cells(y, 8) = TextBox6.Text
      I列 入力者
      Cells(y, 9) = TextBox7.Text

       介護施設のショートステイの管理表です

       上のコードでSheet1(入力)に転記されます。

       Sheet2(転記されたシート)から
      1(Sheet3)〜12(Sheet15)のseatがあり自動的に転記されます。

      各シートはその月の日付と部屋名があり
       ※1 の顧客名(性のみ)で予約内容が表示されます。




    [191751] Re[3]: UserFormより値をシートに転記しても同じ行に-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/04/15(16:59))
    □U R L/

      追加します
      例えば

      Sheet1
      日付 1/1(G5)〜1/31(Ak5) 
      A7 201A〜 A21 202I

      で、
         G7に

       =@IF(COUNTIFS(入力!$D$1:$D$1000,$A7,入力!$G$1:$G$1000,"<="&G$5,入力!$H$1:$H$1000,">="&G$5,
      入力!$G$1:$G$1000,">0",入力!$H$1:$H$1000,"<9999/12/31")=1,INDEX(入力!$E$1:$E$1000,
      SUMPRODUCT(ROW(入力!$E$1:INDEX(入力!$E$1:$E$1000,MATCH(9E+99,入力!$A$1:$A$1000)))*(入力!$D$1:INDEX(入力!$D$1:$D$1000,
      MATCH(9E+99,入力!$A$1:$A$1000))=$A7)*(入力!$G$1:INDEX(入力!$G$1:$G$1000,MATCH(9E+99,入力!$A$1:$A$1000))<=G$5)*
      (入力!$H$1:INDEX(入力!$H$1:$H$1000,MATCH(9E+99,入力!$A$1:$A$1000))>=G$5))),IF(COUNTIFS(入力!$D$1:$D$1000,$A7,入力!$G$1:$G$1000,
      "<="&G$5,入力!$H$1:$H$1000,">="&G$5,入力!$G$1:$G$1000,">0",入力!$H$1:$H$1000,"<9999/12/31")>1,"重複",""))




    [191752] Re[4]: UserFormより値をシートに転記しても同じ行に-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/04/15(17:12))
    □U R L/
      Do While Cells(y, 2) <> ""
      >        y = y + 1
      Loop
      そこで、B列にある空白の行番号を探していると思いますが、
      次回転記するまで、確実にデータが埋まっている状態を作らないと
      次回転記でまた同じ行が上書きされることになりますが、
      それは大丈夫ですか?
      
      因みに、提示されたコードは、TextBoxの名前が、順になっているなら、
      これで済みます。
      
      Private Sub CommandButton1_Click()
          '
          Dim Y, Idx
          Y = 2
          
          Do While Cells(Y, 2) <> ""
              Y = Y + 1
          Loop
      
          For Idx = 1 To 7
              If Idx = 1 Then
                   Cells(Y, 1).Value = Me.Controls("TextBox" & Idx).Text
                   Me.Controls("TextBox" & Idx).Text = Format(Date, "mm/dd")
                   
              Else '2つ目以降はプラス2にする
                   Cells(Y, Idx + 2).Value = Me.Controls("TextBox" & Idx).Text
                        Me.Controls("TextBox" & Idx).Text = ""
              End If
          Next Idx
              
          TextBox1.SetFocus
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191753] Re[5]: UserFormより値をシートに転記しても同じ行に-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/04/15(18:27))
    □U R L/
      下記の様にしてうまくできました。
      
       1
        B2 =IF(A2="","",D2)
         C2 =IF(A2="","",D2)
        というように B C 列を埋めると
        行が変わり転記します。
       
       2
        ご指導の構文を適用
       
       3 列は以下の様に
         If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub
      
       大忙しいところをご協力とご指導に感謝します。
       
       ありがとうございました。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191754] Re[6]: UserFormより値をシートに転記しても同じ行に-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/04/15(18:34))
    □U R L/
      分かり易く、前回のと合わせると
      
      Private Sub CommandButton1_Click()
          Dim Y
          
          Y = 2
          Do While Cells(Y, "A") <> ""  'ただし、最終行を判定するのはA列に変更します
              Y = Y + 1
          Loop
          
          Application.EnableEvents = False
          
          Cells(Y, 1) = TextBox1.Text
          
          With Cells(Y, 4)
          
              Select Case TextBox2.Text
                  Case "1": .Value = "201A"
                  Case "2": .Value = "201B"
                  Case "3": .Value = "201C"
                  Case "4": .Value = "201D"
                  Case "5": .Value = "201E"
                  Case "6": .Value = "201F"
                      
                  Case "7": .Value = "202A"
                  Case "8": .Value = "202B"
                  Case "9": .Value = "202C"
                  Case "10": .Value = "202D"
                  Case "11": .Value = "202E"
                  Case "12": .Value = "202F"
                      
                  Case "13": .Value = "202G"
                  Case "14": .Value = "202H"
                  Case "15": .Value = "202I"
              End Select
          End With
              
          Cells(Y, 5) = TextBox3.Text
          Cells(Y, 6) = TextBox4.Text
          Cells(Y, 7) = TextBox5.Text
          Cells(Y, 8) = TextBox6.Text
          Cells(Y, 9) = TextBox7.Text
          
          Application.EnableEvents = True
              
          TextBox1.Text = Format(Date, "mm/dd")
          TextBox2.Text = ""
          TextBox3.Text = ""
          TextBox4.Text = ""
          TextBox5.Text = ""
          TextBox6.Text = ""
          TextBox7.Text = ""
          
          TextBox1.SetFocus
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191755] Re[7]: UserFormより値をシートに転記しても同じ行に-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/04/15(19:58))
    □U R L/

      本当に本当にありがとうございます。

      vba知識の低い小生にはすごく理解しやすい構文です。

      ばっちりと決まりました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G