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
5日目 [開発チーム]
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/c/c8c927225c331065caddf9075610ab95.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/c/c8c927225c331065caddf9075610ab95.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/a38e6aec257cf3c62126af9b103b2dd4.code failed
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/9/9d37e5085ab5f83709b5dcbc74669e9c.code failed
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/b/b3e7c2a4d6c53076b1537c6c030733ee.code failed
Writing /var/www/vhosts/w629.ws.domainking.cloud/enjoy-lei.com/dokuwiki/data/cache/c/c8c927225c331065caddf9075610ab95.xhtml failed

最初から書き直してますよ・・

Option Explicit
 
'列
Public Const A_ = 1
Public Const B_ = 2
Public Const C_ = 3
Public Const D_ = 4
Public Const E_ = 5
Public Const F_ = 6
Public Const G_ = 7
Public Const H_ = 8
Public Const I_ = 9
Public Const J_ = 10
Public Const K_ = 11
Public Const L_ = 12
Public Const M_ = 13
Public Const N_ = 14
Public Const O_ = 15
Public Const P_ = 16
Public Const Q_ = 17
Public Const R_ = 18
Public Const S_ = 19
Public Const T_ = 20
Public Const U_ = 21
Public Const V_ = 22
Public Const W_ = 23
Public Const X_ = 24
Public Const Y_ = 25
Public Const Z_ = 26
Public Const AA_ = 27
Public Const AB_ = 28
Public Const AC_ = 29
Public Const AD_ = 30
Public Const AE_ = 31
Public Const AF_ = 32
Public Const AG_ = 33
Public Const AH_ = 34
Public Const AI_ = 35
Public Const AJ_ = 36
Public Const AK_ = 37
Public Const AL_ = 38
Public Const AM_ = 39
Public Const AN_ = 40
Public Const AO_ = 41
Public Const AP_ = 42
Public Const AQ_ = 43
Public Const AR_ = 44
Public Const AS_ = 45
Public Const AT_ = 46
Public Const AU_ = 47
Public Const AV_ = 48
Public Const AW_ = 49
Public Const AX_ = 50
Public Const AY_ = 51
Public Const AZ_ = 52
Public Const BA_ = 53
Public Const BB_ = 54
Public Const BC_ = 55
Public Const BD_ = 56
Public Const BE_ = 57
Public Const BF_ = 58
Public Const BG_ = 59
Public Const BH_ = 60
Public Const BI_ = 61
Public Const BJ_ = 62
Public Const BK_ = 63
Public Const BL_ = 64
Public Const BM_ = 65
Public Const BN_ = 66
Public Const BO_ = 67
Public Const BP_ = 68
Public Const BQ_ = 69
Public Const BR_ = 70
Public Const BS_ = 71
Public Const BT_ = 72
Public Const BU_ = 73
Public Const BV_ = 74
Public Const BW_ = 75
Public Const BX_ = 76
Public Const BY_ = 77
Public Const BZ_ = 78
Public Const CA_ = 79
Public Const CB_ = 80
Public Const CC_ = 81
Public Const CD_ = 82
Public Const CE_ = 83
Public Const CF_ = 84
Public Const CG_ = 85
Public Const CH_ = 86
Public Const CI_ = 87
Public Const CJ_ = 88
Public Const CK_ = 89
Public Const CL_ = 90
Public Const CM_ = 91
Public Const CN_ = 92
Public Const CO_ = 93
Public Const CP_ = 94
Public Const CQ_ = 95
Public Const CR_ = 96
Public Const CS_ = 97
Public Const CT_ = 98
Public Const CU_ = 99
Public Const CV_ = 100
Public Const CW_ = 101
Public Const CX_ = 102
Public Const CY_ = 103
Public Const CZ_ = 104
Public Const DA_ = 105
Public Const DB_ = 106
Public Const DC_ = 107
Public Const DD_ = 108
Public Const DE_ = 109
Public Const DF_ = 110
Public Const DG_ = 111
Public Const DH_ = 112
Public Const DI_ = 113
Public Const DJ_ = 114
Public Const DK_ = 115
Public Const DL_ = 116
Public Const DM_ = 117
Public Const DN_ = 118
Public Const DO_ = 119
Public Const DP_ = 120
Public Const DQ_ = 121
Public Const DR_ = 122
Public Const DS_ = 123
Public Const DT_ = 124
Public Const DU_ = 125
Public Const DV_ = 126
Public Const DW_ = 127
Public Const DX_ = 128
Public Const DY_ = 129
Public Const DZ_ = 130
Public Const EA_ = 131
Public Const EB_ = 132
Public Const EC_ = 133
Public Const ED_ = 134
Public Const EE_ = 135
Public Const EF_ = 136
Public Const EG_ = 137
Public Const EH_ = 138
Public Const EI_ = 139
Public Const EJ_ = 140
Public Const EK_ = 141
Public Const EL_ = 142
Public Const EM_ = 143
Public Const EN_ = 144
Public Const EO_ = 145
Public Const EP_ = 146
Public Const EQ_ = 147
Public Const ER_ = 148
Public Const ES_ = 149
Public Const ET_ = 150
Public Const EU_ = 151
Public Const EV_ = 152
Public Const EW_ = 153
Public Const EX_ = 154
Public Const EY_ = 155
Public Const EZ_ = 156
Public Const FA_ = 157
Public Const FB_ = 158
Public Const FC_ = 159
Public Const FD_ = 160
Public Const FE_ = 161
Public Const FF_ = 162
Public Const FG_ = 163
Public Const FH_ = 164
Public Const FI_ = 165
Public Const FJ_ = 166
Public Const FK_ = 167
Public Const FL_ = 168
Public Const FM_ = 169
Public Const FN_ = 170
Public Const FO_ = 171
Public Const FP_ = 172
Public Const FQ_ = 173
Public Const FR_ = 174
Public Const FS_ = 175
Public Const FT_ = 176
Public Const FU_ = 177
Public Const FV_ = 178
Public Const FW_ = 179
Public Const FX_ = 180
Public Const FY_ = 181
Public Const FZ_ = 182
Public Const GA_ = 183
Public Const GB_ = 184
Public Const GC_ = 185
Public Const GD_ = 186
Public Const GE_ = 187
Public Const GF_ = 188
Public Const GG_ = 189
Public Const GH_ = 190
Public Const GI_ = 191
Public Const GJ_ = 192
Public Const GK_ = 193
Public Const GL_ = 194
Public Const GM_ = 195
Public Const GN_ = 196
Public Const GO_ = 197
Public Const GP_ = 198
Public Const GQ_ = 199
Public Const GR_ = 200
Public Const GS_ = 201
Public Const GT_ = 202
Public Const GU_ = 203
Public Const GV_ = 204
Public Const GW_ = 205
Public Const GX_ = 206
Public Const GY_ = 207
Public Const GZ_ = 208
Public Const HA_ = 209
Public Const HB_ = 210
Public Const HC_ = 211
Public Const HD_ = 212
Public Const HE_ = 213
Public Const HF_ = 214
Public Const HG_ = 215
Public Const HH_ = 216
Public Const HI_ = 217
Public Const HJ_ = 218
Public Const HK_ = 219
Public Const HL_ = 220
Public Const HM_ = 221
Public Const HN_ = 222
Public Const HO_ = 223
Public Const HP_ = 224
Public Const HQ_ = 225
Public Const HR_ = 226
Public Const HS_ = 227
Public Const HT_ = 228
Public Const HU_ = 229
Public Const HV_ = 230
Public Const HW_ = 231
Public Const HX_ = 232
Public Const HY_ = 233
Public Const HZ_ = 234
Public Const IA_ = 235
Public Const IB_ = 236
Public Const IC_ = 237
Public Const ID_ = 238
Public Const IE_ = 239
Public Const IF_ = 240
Public Const IG_ = 241
Public Const IH_ = 242
Public Const II_ = 243
Public Const IJ_ = 244
Public Const IK_ = 245
Public Const IL_ = 246
Public Const IM_ = 247
Public Const IN_ = 248
Public Const IO_ = 249
Public Const IP_ = 250
Public Const IQ_ = 251
Public Const IR_ = 252
Public Const IS_ = 253
Public Const IT_ = 254
Public Const IU_ = 255
Public Const IV_ = 256
 
Public Const Q_TYPE_RADIO = 1 'ラジオボタン(単一回答)
Public Const Q_TYPE_CHECK = 2 'チェックボックス(複数回答)
Public Const Q_TYPE_SELECT = 3 'プルダウン(単一回答)
Public Const Q_TYPE_SCALE = 4 'スケール評価(単一回答)
Public Const Q_TYPE_MATRIX_RADIO = 5 'マトリクス質問(単一回答)
Public Const Q_TYPE_MATRIX_CHECK = 6 'マトリクス質問(複数回答)
Public Const Q_TYPE_MATRIX_RADIO_W = 7 '対マトリクス質問(単一回答)
Public Const Q_TYPE_RANK = 8 '順位回答
Public Const Q_TYPE_RATE = 9 '割合
Public Const Q_TYPE_BOX = 10 'フリーアンサー(長文)
Public Const Q_TYPE_TEXT = 11 'フリーアンサー(一行)
 
Public Const Q_NAME_RADIO = "ラジオボタン(単一回答)"
Public Const Q_NAME_CHECK = "チェックボックス(複数回答)"
Public Const Q_NAME_SELECT = "プルダウン(単一回答)"
Public Const Q_NAME_SCALE = "スケール評価(単一回答)"
Public Const Q_NAME_MATRIX_RADIO = "マトリクス質問(単一回答)"
Public Const Q_NAME_MATRIX_CHECK = "マトリクス質問(複数回答)"
Public Const Q_NAME_MATRIX_RADIO_W = "対マトリクス質問(単一回答)"
Public Const Q_NAME_RANK = "順位回答"
Public Const Q_NAME_RATE = "割合"
Public Const Q_NAME_BOX = "フリーアンサー(長文)"
Public Const Q_NAME_TEXT = "フリーアンサー(一行)"
 
'ローデータ書式
Public Const SEX_C = C_
Public Const AGE_C = D_
Public Const AGEID_C = E_
Public Const PREFECTURE_C = F_
Public Const AREA_C = G_
Public Const JOB_C = H_
Public Const CELL_C = I_
 
Public Const RD_TITLE_ROW = 1
Public Const RD_START_Q = K_
 
'テーブル配列用
Public Const GRID_SIZE_R = 100
Public Const GRID_SIZE_C = 100
Option Explicit
 
'数字変数
Public a As Integer
Public b As Integer
Public c As Integer
Public d As Integer
Public e As Integer
Public f As Integer
Public g As Integer
Public h As Integer
Public i As Integer
Public j As Integer
Public k As Integer
Public l As Integer
Public m As Integer
Public n As Integer
Public o As Integer
Public p As Integer
Public q As Integer
Public r As Integer
Public s As Integer
Public t As Integer
Public u As Integer
Public v As Integer
Public w As Integer
Public x As Integer
Public y As Integer
Public z As Integer
 
'文字変数
Public aa As String
Public bb As String
Public cc As String
Public dd As String
Public ee As String
Public ff As String
Public gg As String
Public hh As String
Public ii As String
Public jj As String
Public kk As String
Public ll As String
Public mm As String
Public nn As String
Public oo As String
Public pp As String
Public qq As String
Public rr As String
Public ss As String
Public tt As String
Public uu As String
Public vv As String
Public ww As String
Public xx As String
Public yy As String
Public zz As String
 
'各種フラグ
Public IS_RD As Boolean
Public IS_LY As Boolean
 
 
'ディク
Public Dic1
Public Dic2
Public Dic3
Public Dic4
Public Dic5
 
'split
Public Split1
Public Split2
Public Split3
Public Split4
Public Function deb(Message)
    MsgBox (Message)
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
 
Public Function RefSheet(sheetName)
   If chkSheetName(sheetName) Then
        P1_BOOK.Worksheets(sheetName).Delete
   End If
   P1_BOOK.Sheets.Add.Name = sheetName
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 readCsvFile(targetSheetName) As Boolean
    Dim TargetFile
    TargetFile = GetFileName
    If TargetFile = "False" Then
        readCsvFile = False
        Exit Function
    End If
    Dim FileObj
    RefSheet (targetSheetName)
    Set FileObj = P1_BOOK.Worksheets(targetSheetName)
    With FileObj.QueryTables.Add(Connection:= _
        "TEXT;" & TargetFile, Destination:= _
        Range("A1"))
        .Name = targetSheetName
        .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
    readCsvFile = True
End Function
 
 
Public Function WriteRow(sheetObj, dic, Col, sortFlg)
    Dim Item
    i = 1
    For Each Item In dic.Items
        sheetObj.Cells(i, Col).Value = Item
        i = i + 1
    Next
    If sortFlg Then
        sheetObj.Range(sheetObj.Cells(1, Col), sheetObj.Cells(i - 1, Col)).Select
        RowSort (sheetObj.Cells(1, Col))
    End If
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 GetYmdHis()
    GetYmdHis = Format(Date, "yyyymmdd") & Format(Now, "hhmmss")
End Function
 
Public Function init()
    Application.DisplayAlerts = False
    initials
    Set P1_BOOK = Workbooks(P1_BOOK_NAME)
    Set START = P1_BOOK.Worksheets(START_SHEET_NAME)
    MainPanel.Show
End Function
 
 
Public Function initials()
    IS_RD = False
    IS_LY = False
End Function
 
Public Function BackMain()
    START.Activate
End Function
Public Function MakeGtData() As Boolean
    Workbooks.Add
    GT_BOOK_NAME = ActiveWorkbook.Name
 
    Set GT_BOOK = Workbooks(GT_BOOK_NAME)
 
    MakeGtData = True
    BackMain
End Function
Public Function MakeRdData() As Boolean
    MakeRdData = False
    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_
    MakeRdData = True
    BackMain
End Function
 
Public Function MakeTmpSheet()
    RefSheet (TMP_SHEET_NAME)
    Set TMP = P1_BOOK.Worksheets(TMP_SHEET_NAME)
End Function
 
 
Public Function MakeSelect(Col, W_Col)
    i = RD_TITLE_ROW
 
    Set Dic1 = CreateObject("Scripting.Dictionary")
 
    Do Until RD.Cells(i, Col) = ""
        aa = RD.Cells(i, Col)
        If Dic1.Exists(aa) = False Then
            Dic1.Add aa, aa
        End If
        i = i + 1
    Loop
    WriteRow TMP, Dic1, W_Col, True
End Function
 
Public Function MakeSelectQ(W_Col)
    i = RD_START_Q
    Set Dic1 = CreateObject("Scripting.Dictionary")
    Dic1.Add "QESTION", "QESTION"
    Do Until RD.Cells(RD_TITLE_ROW, i) = ""
        aa = RD.Cells(RD_TITLE_ROW, i)
        Split1 = Split(aa, "_")
        If Dic1.Exists(Split1(0)) = False Then
            Dic1.Add Split1(0), Split1(0)
        End If
        i = i + 1
    Loop
    WriteRow TMP, Dic1, W_Col, False
    Dim Item
    For Each Item In Dic1.Items
        If Item <> "QESTION" Then
         '  deb (Item)
           ' MakeGT Item
        End If
    Next
End Function
Option Explicit
 
'ブック
Public Const P1_BOOK_NAME = "P1.xls"
Public P1_BOOK As Workbook
 
Public GT_BOOK_NAME As String
Public GT_BOOK As Workbook
 
 
'ローデータ
Public Const RD_SHEET_NAME = "RD"
Public Const RD_NAME = "ローデータ"
Public RD As Worksheet
 
 
'一時データ保存
Public Const TMP_SHEET_NAME = "tmp"
Public TMP As Worksheet
 
'開始ページ
Public Const START_SHEET_NAME = "main"
Public START As Worksheet
 
 
'作業用
Public Const FREE_SHEET_NAME = "free"
Public FREE As Worksheet
 
'レイアウト
Public Const LY_SHEET_NAME = "LY"
Public LY As Worksheet
5日目.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