Excel VBA質問箱 IV

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

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


41464 / 76732 ←次へ | 前へ→

【40348】Re:セルの操作について
お礼  kaoru  - 06/7/12(水) 9:02 -

引用なし
パスワード
   ▼Hirofumi さん:
Hirofumiさん おはようございます。
ありがとうございました。
無事完成しました。
>かな?
>
>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 お礼

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