Excel VBA質問箱 IV

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

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


41472 / 76732 ←次へ | 前へ→

【40340】Re:セルの操作について
回答  Hirofumi  - 06/7/11(火) 22:28 -

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

Sub 事務所公休設定2()
'***************************************************************
'*  事務所 公休自動貼り付け処理               *
'***************************************************************

  Dim RRET As Long
  Dim RYOUBI As String
'  Dim RDAY As Date
  Dim RDAY As Variant
'  Dim SDAY As String
  Dim SDAY As Variant
  Dim WGYO As Long
  Dim DGYOMAX As Long
  
  RRET = 5 '1日目設定
  DGYOMAX = Worksheets("事務所勤務").Range("D65536").End(xlUp).Row
  
  Do Until RRET > 36
    WGYO = 8
'    MsgBox "Cells(5, RRET)" & Cells(5, RRET)
    RDAY = Cells(5, RRET)
    RYOUBI = Cells(6, RRET).Value
'    SDAY = Application.Match(Cells(5, RRET).Value, Range("C72:C98"), 0)
    SDAY = Application.Match(CLng(RDAY), Range("C72:C98"), 0)
    If Application.IsError(SDAY) = False Then
      Do Until WGYO > DGYOMAX
        Cells(WGYO, RRET).Value = "公"
        WGYO = WGYO + 1
      Loop
    Else
      WGYO = 8
    End If
    If RYOUBI = "土" Then
      WGYO = 8
      Do Until WGYO > DGYOMAX
        Cells(WGYO, RRET).Value = "公"
        WGYO = WGYO + 1
      Loop
    Else
      If RYOUBI = "日" Then
        WGYO = 8
        Do Until WGYO > DGYOMAX
          Cells(WGYO, RRET).Value = "公"
          WGYO = WGYO + 1
        Loop
      Else
        WGYO = 8
      End If
    End If
    RRET = RRET + 1
  Loop

End Sub

1 hits

【40338】セルの操作について kaoru 06/7/11(火) 20:42 質問
【40339】Re:セルの操作について かみちゃん 06/7/11(火) 20:45 発言
【40349】Re:セルの操作について kaoru 06/7/12(水) 9:03 お礼
【40340】Re:セルの操作について Hirofumi 06/7/11(火) 22:28 回答
【40348】Re:セルの操作について kaoru 06/7/12(水) 9:02 お礼

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