戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
曜日表示

    [192279] 曜日表示-

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

    □投稿者/ ソラシド -(2020/06/24(16:59))
    □U R L/
      下記コードで曜日を表示するサンプルコードを見つけましたが列選択画面で(A:A)を選択しなければ曜日が表示されません。
      A3列目からB3列目から曜日を表示させたいのですが修正方法がわかりませんアドバイスをお願いします。
      また、曜日の前後をカッコでくくりたいのですがよろしくお願いします。
      
      Private Sub 日付_Click()
      Dim tmp As String
           On Error GoTo myError
          tmp = Application.InputBox("列を選択してください", "列の選択", Type:=8).Address
          On Error GoTo 0
          
          Dim monthStart As Long  
          Dim monthEnd As Long   
              
          monthStart = 1
          monthEnd = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
          
          Range(tmp).Select
          
          Dim y As Long
          Dim x As Long
          Dim col As Long 
          Dim row As Long 
          
          If Selection.Address = Selection.EntireColumn.Address Then
              
                  col = Selection.Column
                  
                  For y = monthStart To monthEnd
                      Cells(y, col).Value = y
                      tmp = Weekday(Year(Date) & "/" & Month(Date) & "/" & y)
                     tmp = WeekdayName(tmp, True)
                      
                      Cells(y, col + 1).Value = tmp
                  Next
          
          Else
               If Selection.Address = Selection.EntireRow.Address Then
                  
                  row = Selection.row
          
                  For x = monthStart To monthEnd
                      Cells(row, x).Value = x
                      
                      tmp = Weekday(Year(Date) & "/" & Month(Date) & "/" & x)
                      
                      tmp = WeekdayName(tmp, True)
                     
                      Cells(row + 1, x).Value = tmp
                  Next
              End If
          End If
          
      myError:
      End Sub
      


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

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



      ++++++++++++++++++++
      OS      ⇒Windows XP
      Version⇒Excel 2007
      ++++++++++++++++++++




    [192281] Re[1]: 曜日表示-

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

    □投稿者/ 半平太 -(2020/06/25(07:51))
    □U R L/
      >A3列目からB3列目から曜日を表示させたい
      そこまで限定していいなら、細かくコードを書く必要もないですね。
      
      Private Sub 日付_Click()
          Dim monthEnd As Long
          Dim y As Long
          
          monthEnd = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
          
          For y = 1 To monthEnd
              Cells(y + 2, "A").Value = y
              Cells(y + 2, "B").Value = Format(Date - Day(Date) + y, "(AAA)")
          Next
      End Sub
      


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

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




    [192283] Re[2]: 曜日表示-

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

    □投稿者/ ソラシド -(2020/06/25(15:34))
    □U R L/

      解決しました。
      有難うございます




    [192346] Re[3]: 曜日表示(再質問)-

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

    □投稿者/ ソラシド -(2020/06/30(16:11))
    □U R L/

      上記コードは当月の計算になりますが、翌月で計算する場合はどうなりますでしょうか。常に翌月計算で問題いありません。
      何度も申し訳ありませんよろしくお願いします。



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

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

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


- Child Forum -
Edit:ゆう-G