Strict Standards: Declaration of action_plugin_blog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/blog/action.php on line 13

Strict Standards: Declaration of action_plugin_indexmenu::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/indexmenu/action.php on line 13

Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/importoldindex/action.php on line 8

Strict Standards: Declaration of action_plugin_include::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/lib/plugins/include/action.php on line 19

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 208

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 211

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 421

Deprecated: Assigning the return value of new by reference is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/parserutils.php on line 594

Strict Standards: Declaration of cache_instructions::retrieveCache() should be compatible with cache::retrieveCache($clean = true) in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/cache.php on line 291

Deprecated: Function split() is deprecated in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/inc/auth.php on line 154

Strict Standards: Only variables should be passed by reference in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/doku.php on line 73
4日目 [開発チーム]
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/d/dba7f659090693950205b56951926668.i failed
Unable to save cache file. Hint: disk full; file permissions; safe_mode setting.
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/d/dba7f659090693950205b56951926668.i failed
Unable to save cache file. Hint: disk full; file permissions; safe_mode setting.
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/a/a0f13153be1782a686971593053c9d6e.code failed
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/d/dba7f659090693950205b56951926668.xhtml failed
 
Const A_ = 1
Const B_ = 2
Const C_ = 3
Const D_ = 4
Const E_ = 5
Const F_ = 6
Const G_ = 7
Const H_ = 8
Const I_ = 9
Const J_ = 10
Const K_ = 11
Const L_ = 12
Const M_ = 13
Const N_ = 14
Const O_ = 15
Const P_ = 16
Const Q_ = 17
Const R_ = 18
Const S_ = 19
Const T_ = 20
Const U_ = 21
Const V_ = 22
Const W_ = 23
Const X_ = 24
Const Y_ = 25
Const Z_ = 26
Const AA_ = 27
Const AB_ = 28
Const AC_ = 29
Const AD_ = 30
Const AE_ = 31
Const AF_ = 32
Const AG_ = 33
Const AH_ = 34
Const AI_ = 35
Const AJ_ = 36
Const AK_ = 37
Const AL_ = 38
Const AM_ = 39
Const AN_ = 40
Const AO_ = 41
Const AP_ = 42
Const AQ_ = 43
Const AR_ = 44
Const AS_ = 45
Const AT_ = 46
Const AU_ = 47
Const AV_ = 48
Const AW_ = 49
Const AX_ = 50
Const AY_ = 51
Const AZ_ = 52
Const BA_ = 53
Const BB_ = 54
Const BC_ = 55
Const BD_ = 56
Const BE_ = 57
Const BF_ = 58
Const BG_ = 59
Const BH_ = 60
Const BI_ = 61
Const BJ_ = 62
Const BK_ = 63
Const BL_ = 64
Const BM_ = 65
Const BN_ = 66
Const BO_ = 67
Const BP_ = 68
Const BQ_ = 69
Const BR_ = 70
Const BS_ = 71
Const BT_ = 72
Const BU_ = 73
Const BV_ = 74
Const BW_ = 75
Const BX_ = 76
Const BY_ = 77
Const BZ_ = 78
Const CA_ = 79
Const CB_ = 80
Const CC_ = 81
Const CD_ = 82
Const CE_ = 83
Const CF_ = 84
Const CG_ = 85
Const CH_ = 86
Const CI_ = 87
Const CJ_ = 88
Const CK_ = 89
Const CL_ = 90
Const CM_ = 91
Const CN_ = 92
Const CO_ = 93
Const CP_ = 94
Const CQ_ = 95
Const CR_ = 96
Const CS_ = 97
Const CT_ = 98
Const CU_ = 99
Const CV_ = 100
Const CW_ = 101
Const CX_ = 102
Const CY_ = 103
Const CZ_ = 104
Const DA_ = 105
Const DB_ = 106
Const DC_ = 107
Const DD_ = 108
Const DE_ = 109
Const DF_ = 110
Const DG_ = 111
Const DH_ = 112
Const DI_ = 113
Const DJ_ = 114
Const DK_ = 115
Const DL_ = 116
Const DM_ = 117
Const DN_ = 118
Const DO_ = 119
Const DP_ = 120
Const DQ_ = 121
Const DR_ = 122
Const DS_ = 123
Const DT_ = 124
Const DU_ = 125
Const DV_ = 126
Const DW_ = 127
Const DX_ = 128
Const DY_ = 129
Const DZ_ = 130
Const EA_ = 131
Const EB_ = 132
Const EC_ = 133
Const ED_ = 134
Const EE_ = 135
Const EF_ = 136
Const EG_ = 137
Const EH_ = 138
Const EI_ = 139
Const EJ_ = 140
Const EK_ = 141
Const EL_ = 142
Const EM_ = 143
Const EN_ = 144
Const EO_ = 145
Const EP_ = 146
Const EQ_ = 147
Const ER_ = 148
Const ES_ = 149
Const ET_ = 150
Const EU_ = 151
Const EV_ = 152
Const EW_ = 153
Const EX_ = 154
Const EY_ = 155
Const EZ_ = 156
Const FA_ = 157
Const FB_ = 158
Const FC_ = 159
Const FD_ = 160
Const FE_ = 161
Const FF_ = 162
Const FG_ = 163
Const FH_ = 164
Const FI_ = 165
Const FJ_ = 166
Const FK_ = 167
Const FL_ = 168
Const FM_ = 169
Const FN_ = 170
Const FO_ = 171
Const FP_ = 172
Const FQ_ = 173
Const FR_ = 174
Const FS_ = 175
Const FT_ = 176
Const FU_ = 177
Const FV_ = 178
Const FW_ = 179
Const FX_ = 180
Const FY_ = 181
Const FZ_ = 182
Const GA_ = 183
Const GB_ = 184
Const GC_ = 185
Const GD_ = 186
Const GE_ = 187
Const GF_ = 188
Const GG_ = 189
Const GH_ = 190
Const GI_ = 191
Const GJ_ = 192
Const GK_ = 193
Const GL_ = 194
Const GM_ = 195
Const GN_ = 196
Const GO_ = 197
Const GP_ = 198
Const GQ_ = 199
Const GR_ = 200
Const GS_ = 201
Const GT_ = 202
Const GU_ = 203
Const GV_ = 204
Const GW_ = 205
Const GX_ = 206
Const GY_ = 207
Const GZ_ = 208
Const HA_ = 209
Const HB_ = 210
Const HC_ = 211
Const HD_ = 212
Const HE_ = 213
Const HF_ = 214
Const HG_ = 215
Const HH_ = 216
Const HI_ = 217
Const HJ_ = 218
Const HK_ = 219
Const HL_ = 220
Const HM_ = 221
Const HN_ = 222
Const HO_ = 223
Const HP_ = 224
Const HQ_ = 225
Const HR_ = 226
Const HS_ = 227
Const HT_ = 228
Const HU_ = 229
Const HV_ = 230
Const HW_ = 231
Const HX_ = 232
Const HY_ = 233
Const HZ_ = 234
Const IA_ = 235
Const IB_ = 236
Const IC_ = 237
Const ID_ = 238
Const IE_ = 239
Const IF_ = 240
Const IG_ = 241
Const IH_ = 242
Const II_ = 243
Const IJ_ = 244
Const IK_ = 245
Const IL_ = 246
Const IM_ = 247
Const IN_ = 248
Const IO_ = 249
Const IP_ = 250
Const IQ_ = 251
Const IR_ = 252
Const IS_ = 253
Const IT_ = 254
Const IU_ = 255
Const IV_ = 256
 
Const SEX_C = C_
Const AGE_C = D_
Const AGEID_C = E_
Const PREFECTURE_C = F_
Const AREA_C = G_
Const JOB_C = H_
Const CELL_C = I_
 
Const RD_SHEET_NAME = "RD"
Const RD_NAME = "ローデータ"
Const START_SHEET_NAME = "start"
Const TMP_SHEET_NAME = "tmp"
Dim RD As Worksheet
Dim START As Worksheet
Dim TMP As Worksheet
 
Const FREE_SHEET_NAME = "free"
Dim FREE As Worksheet
Const LY_SHEET_NAME = "LY"
Dim LY As Worksheet
 
 
Const START_ROW = 1
Const RD_START_Q = K_
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
Const Q_TYPE_RADIO = 1 'ラジオボタン(単一回答)
Const Q_TYPE_CHECK = 2 'チェックボックス(複数回答)
Const Q_TYPE_SELECT = 3 'プルダウン(単一回答)
Const Q_TYPE_SCALE = 4 'スケール評価(単一回答)
Const Q_TYPE_MATRIX_RADIO = 5 'マトリクス質問(単一回答)
Const Q_TYPE_MATRIX_CHECK = 6 'マトリクス質問(複数回答)
Const Q_TYPE_MATRIX_RADIO_W = 7 '対マトリクス質問(単一回答)
Const Q_TYPE_RANK = 8 '順位回答
Const Q_TYPE_RATE = 9 '割合
Const Q_TYPE_BOX = 10 'フリーアンサー(長文)
Const Q_TYPE_TEXT = 11 'フリーアンサー(一行)
 
Const Q_NAME_RADIO = "ラジオボタン(単一回答)"
Const Q_NAME_CHECK = "チェックボックス(複数回答)"
Const Q_NAME_SELECT = "プルダウン(単一回答)"
Const Q_NAME_SCALE = "スケール評価(単一回答)"
Const Q_NAME_MATRIX_RADIO = "マトリクス質問(単一回答)"
Const Q_NAME_MATRIX_CHECK = "マトリクス質問(複数回答)"
Const Q_NAME_MATRIX_RADIO_W = "対マトリクス質問(単一回答)"
Const Q_NAME_RANK = "順位回答"
Const Q_NAME_RATE = "割合"
Const Q_NAME_BOX = "フリーアンサー(長文)"
Const Q_NAME_TEXT = "フリーアンサー(一行)"
 
' ローデータ設問部分のしよう _
質問番号_質問タイプ_選択肢番号()_選択肢番号(横) _
Q_TYPE_RADIOの場合 _
Q1_1_1 _
Q_TYPE_CHECKの場合 _
Q1_1_1_1 や Q1_1_2_2 _
 
Dim Moji As String
Dim Moji1 As String
Dim Moji2 As String
Dim Moji3 As String
 
 
Public Function MakeGT(Qnum)
'M (Qnum)
    EnabledFalse
    If chkSheetName(FREE_SHEET_NAME) Then
    Else
       ActiveWorkbook.Sheets.Add.Name = FREE_SHEET_NAME
    End If
    Set FREE = Worksheets(FREE_SHEET_NAME)
    FREE.Activate
    FREE.Cells.Select
    Selection.ClearContents
    Set LY = Worksheets(LY_SHEET_NAME)
    i = 1
    Dim findObj As Object
    Dim FreeRow As Integer
    Dim FreeCol As Integer
    FreeRow = 1
    FreeCol = C_
    Dim Sp
 
    Dim KeyDic
    Dim ItemDic
    Set KeyDic = CreateObject("Scripting.Dictionary")
    Set ItemDic = CreateObject("Scripting.Dictionary")
 
    Dim Grid(102, 102)
    Dim GridLine(100)
    Dim LeftPos As Integer
    LeftPos = 0
    Grid(LeftPos, LeftPos) = Qnum
    LeftPos = LeftPos + 1
    Do Until LY.Cells(i, A_) = ""
        Moji = LY.Cells(i, A_)
        Sp = Split(Moji, "_")
        If Sp(0) = Qnum Then
            Moji1 = LY.Cells(i, C_)
            Set findObj = RD.Cells.find(Moji)
            If findObj Is Nothing Then
            Else
                j = RD.Cells.find(Moji).Row
                k = RD.Cells.find(Moji).Column
                l = j + 1
                Do Until RD.Cells(l, k) = ""
                    l = l + 1
                Loop
                l = l - 1
                RD.Activate
                RD.Range(RD.Cells(j, k), RD.Cells(l, k)).Select
                l = Application.WorksheetFunction.CountIf(Selection, Moji1)
                Moji3 = LY.Cells(i, A_)
                Dim Sp2
                Sp2 = Split(Moji3, "_")
                Moji3 = Sp2(0) & "_" & Sp2(1) & "_" & Sp2(2)
                If KeyDic.Exists(Moji3) = False Then
                     KeyDic.Add Moji3, LeftPos
                     ItemDic.Add Moji3, LY.Cells(i, B_)
                     Grid(LeftPos, 0) = LY.Cells(i, B_)
                     LeftPos = LeftPos + 1
                End If
                If GridLine(KeyDic(Moji3)) = "" Then
                    GridLine(KeyDic(Moji3)) = 0
                End If
                GridLine(KeyDic(Moji3)) = GridLine(KeyDic(Moji3)) + l
                Grid(0, Moji1 + 1) = LY.Cells(i, D_)
               Grid(KeyDic(Moji3), Moji1 + 1) = l
            End If
        End If
        i = i + 1
    Loop
    FREE.Cells(1, B_).Value = "全体"
    For i = 1 To 100
        If GridLine(i) <> "" Then
            FREE.Cells(i + 1, B_).Value = GridLine(i)
        End If
    Next
    Dim LastRow As Integer
    Dim LastCol As Integer
 
    For i = 0 To 101
        For j = 0 To 101
            If Grid(i, j) <> "" Then
                FREE.Cells(i + 1, j + 1).Value = Grid(i, j)
                LastRow = i + 1
                LastCol = j + 1
            End If
        Next
    Next
    FREE.Activate
 
    FREE.Range(FREE.Cells(1, 1), FREE.Cells(LastRow, LastCol)).Select
    WriteBorder FREE.Cells(1, 1), FREE.Cells(LastRow, LastCol)
    Charts.Add.Name = "G"
    ActiveChart.ChartType = xlBarStacked100
    ActiveChart.SetSourceData Source:=Sheets(FREE_SHEET_NAME).Range(FREE.Cells(1, 1), FREE.Cells(LastRow, LastCol)), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="free"
 
    ActiveChart.SeriesCollection(1).Select
    Selection.Delete
 
    EnabledTrue
'    M ("Time")
End Function
 
 
 
 
 
Public Function EnabledTrue()
    EnabledSet True
End Function
Public Function EnabledFalse()
    EnabledSet False
End Function
 
Public Function EnabledSet(TrueFalse)
    MainPanel.MakeX_SUBMIT.Enabled = TrueFalse
    MainPanel.MakeGT_SUBMIT.Enabled = TrueFalse
End Function
 
 
Public Function init()
    Application.DisplayAlerts = False
    EnabledFalse
    MainPanel.Show
End Function
 
Public Function ReadRD()
    If chkSheetName(START_SHEET_NAME) Then
        Set START = Worksheets(START_SHEET_NAME)
        readRowFile
        MakeTmp
        START.Activate
        EnabledTrue
 
    Else
        M ("予期せぬエラーが発生")
    End If
 
End Function
 
Public Function M(message) As String
    MsgBox message
End Function
 
Public Function MakeRdSheet()
   If chkSheetName(RD_SHEET_NAME) Then
        Worksheets(RD_SHEET_NAME).Delete
   End If
   ActiveWorkbook.Sheets.Add.Name = RD_SHEET_NAME
   Set RD = Worksheets(RD_SHEET_NAME)
End Function
 
Public Function MakeTmpSheet()
   If chkSheetName(TMP_SHEET_NAME) Then
        Worksheets(TMP_SHEET_NAME).Delete
   End If
   ActiveWorkbook.Sheets.Add.Name = TMP_SHEET_NAME
   Set TMP = Worksheets(TMP_SHEET_NAME)
End Function
 
 
Public Function GetFileName() As String
    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
    If OpenFileName <> "False" Then
        GetFileName = OpenFileName
    Else
        GetFileName = "False"
    End If
End Function
 
 
 
Sub readRowFile()
    Dim TargetFile
    TargetFile = GetFileName
    If TargetFile = "False" Then
        Exit Sub
    End If
    MakeRdSheet
    With RD.QueryTables.Add(Connection:= _
        "TEXT;" & TargetFile, Destination:= _
        Range("A1"))
        .Name = RD_NAME
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array( _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
            1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
            1, 1, 1, 1, 1 _
        )
        .Refresh BackgroundQuery:=False
    End With
 '   M (RD_NAME & "の読み込みをしました")
 
End Sub
 
Public Function MakeTmp()
    MakeTmpSheet
    MakeSelect SEX_C, A_
    MakeSelect AGE_C, B_
    MakeSelect AGEID_C, C_
    MakeSelect PREFECTURE_C, D_
    MakeSelect AREA_C, E_
    MakeSelect JOB_C, F_
    MakeSelect CELL_C, G_
    MakeSelectQ H_
End Function
 
Public Function MakeSelectQ(W_Col)
    i = RD_START_Q
    Dim CheckDic
    Dim Sp
    Dim St As String
    Set CheckDic = CreateObject("Scripting.Dictionary")
    CheckDic.Add "QESTION", "QESTION"
    Do Until RD.Cells(START_ROW, i) = ""
        St = RD.Cells(START_ROW, i)
        Sp = Split(St, "_")
        If CheckDic.Exists(Sp(0)) = False Then
            CheckDic.Add Sp(0), Sp(0)
        End If
        i = i + 1
    Loop
    WriteRowQ CheckDic, W_Col
    Dim Item
    For Each Item In CheckDic.Items
        If Item <> "QESTION" Then
            MakeGT Item
        End If
    Next
End Function
 
Public Function MakeSelect(Col, W_Col)
    i = START_ROW
    Dim CheckDic
    Dim St As String
 
    Set CheckDic = CreateObject("Scripting.Dictionary")
    Do Until RD.Cells(i, Col) = ""
        St = RD.Cells(i, Col)
        If CheckDic.Exists(St) = False Then
            CheckDic.Add St, St
        End If
        i = i + 1
    Loop
    WriteRow CheckDic, W_Col
End Function
Public Function WriteRowQ(dic, Col)
    Dim Item
    i = 1
    For Each Item In dic.Items
        TMP.Cells(i, Col).Value = Item
        i = i + 1
    Next
    TMP.Range(TMP.Cells(1, Col), TMP.Cells(i - 1, Col)).Select
'    RowSort (TMP.Cells(1, Col))
End Function
 
Public Function WriteRow(dic, Col)
    Dim Item
    i = 1
    For Each Item In dic.Items
        TMP.Cells(i, Col).Value = Item
        i = i + 1
    Next
    TMP.Range(TMP.Cells(1, Col), TMP.Cells(i - 1, Col)).Select
    RowSort (TMP.Cells(1, Col))
End Function
 
Public Function RowSort(cel)
    Selection.Sort Key1:=Range(cel, cel), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin
End Function
 
 
Public Function chkSheetName(sheetName) As Boolean
 
    Dim tempSheet As Object
    chkSheetName = False
    For Each tempSheet In Sheets
        If LCase(sheetName) = LCase(tempSheet.Name) Then
            chkSheetName = True
            Exit For
        End If
    Next tempSheet
 
End Function
 
 
Public Function GetYmdHis()
 
    GetYmdHis = Format(Date, "yyyymmdd") & Format(Now, "hhmmss")
End Function
 
Public Function WriteBorder(Cell1, Cell2)
    Range(Cell1, Cell2).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Function
4日目.txt · 最終更新: 2010/07/27 15:47 (外部編集)
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0

Strict Standards: Only variables should be passed by reference in /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/doku.php on line 81