◆VBAコード

<?php

Function テンプレート(データ, 行数, 空白列)
    Dim wiki用出力(1000)
    Dim 出力行
    出力行 = 0

'ページ名
        wiki用出力(出力行) = データ(0, 0) & "~"
                                                                        出力行 = 出力行 + 2

'目次
        wiki用出力(出力行) = "RIGHT:&link_edit(title=0){このページを編集する}"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "#hr"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|LEFT:234|LEFT:235|LEFT:234|c"
                                                                        出力行 = 出力行 + 1

    Do While i < 行数 \ 3
        wiki用出力(出力行) = "|&link_anchor(title=1,Effect-" & データ(0 + 3 * i, 0) & "){" & データ(0 + 3 * i, 0) & "}" _
                           & "|&link_anchor(title=2,Effect-" & データ(1 + 3 * i, 0) & "){" & データ(1 + 3 * i, 0) & "}" _
                           & "|&link_anchor(title=3,Effect-" & データ(2 + 3 * i, 0) & "){" & データ(2 + 3 * i, 0) & "}|"
                                                                        出力行 = 出力行 + 1
        i = i + 1
    Loop
        
    If 行数 Mod 3 = 1 Then
        wiki用出力(出力行) = "|&link_anchor(title=4,Effect-" & データ(行数 - 1, 0) & "){" & データ(行数 - 1, 0) & "}" & "| | |"
                                                                        出力行 = 出力行 + 1
    ElseIf 行数 Mod 3 = 2 Then
        wiki用出力(出力行) = "|&link_anchor(title=5,Effect-" & データ(行数 - 2, 0) & "){" & データ(行数 - 2, 0) & "}" _
                           & "|&link_anchor(title=6,Effect-" & データ(行数 - 1, 0) & "){" & データ(行数 - 1, 0) & "}" & "| |"
                                                                        出力行 = 出力行 + 1
    End If
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "CENTER:[[<<- 前のページ>page]] | [[トップページ]] | [[次のページ ->>>page]]"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "#hr"
                                                                        出力行 = 出力行 + 1
'ページレイアウト
    For i = 0 To 行数 - 1
        wiki用出力(出力行) = "&anchor(Effect-" & データ(i, 0) & "){}"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "*" & データ(i, 0) & ".sad"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|CENTER:200|CENTER:30|CENTER:70|CENTER:30|CENTER:30|CENTER:30|CENTER:229|c"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|スキル|職業|サイズ|位置|効果|時間|備考|h"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|LEFT:200|CENTER:30|RIGHT:70|CENTER:30|CENTER:30|CENTER:30|LEFT:229|c"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|" & データ(i, 2) & "|" & データ(i, 3) & "|" & データ(i, 1) & "|" & データ(i, 4) & "|" & データ(i, 5) & "|" & データ(i, 6) & "|" & データ(i, 7) & "|"
                                                                        出力行 = 出力行 + 2
        wiki用出力(出力行) = "|>|>|CENTER:火雨|h"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|>|>|CENTER:&image(" & データ(i, 0) & "-01.jpg)|"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|CENTER:234|CENTER:235|CENTER:234|c"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|集中|TU|ブレ|h"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "|&image_thumbnail(" & データ(i, 0) & "-02.jpg)" _
                           & "|&image_thumbnail(" & データ(i, 0) & "-03.jpg)" _
                           & "|&image_thumbnail(" & データ(i, 0) & "-04.jpg)|"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "#hr"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "CENTER:&link_up(title=7){このページの先頭へ}"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "#hr"
                                                                        出力行 = 出力行 + 1
    Next
        wiki用出力(出力行) = "CENTER:[[<<- 前のページ>page]] | [[トップページ]] | [[次のページ ->>>page]]"
                                                                        出力行 = 出力行 + 1
        wiki用出力(出力行) = "#hr"
                                                                        出力行 = 出力行 + 1

'エクセルに出力
    For i = 1 To 出力行
        Worksheets("Sheet2").Cells(i, 空白列).Value = wiki用出力(i - 1)
    Next
End Function
Private Sub CommandButton出力_Click()

'選択範囲の情報取得
    Dim 開始行
    Dim 開始列
    Dim 行数
    Dim 列数

    開始行 = Selection.Row
    開始列 = Selection.Column
    行数 = Selection.Rows.Count
    列数 = Selection.Columns.Count

'選択範囲の評価
    If 開始行 < 2 Or 開始行 > 650 Or 開始列 <> 1 Then
        MsgBox "開始位置が間違っています。"
    ElseIf 行数 > 50 Then
        MsgBox "行数が多すぎます。"
'    ElseIf 列数 <> 8 Then
'        MsgBox "選択範囲が間違っています。"
    Else

'入力データの取得
        Dim データ(50, 8)
        For i = 0 To 行数 - 1
            For j = 0 To 列数 - 1
                データ(i, j) = Cells(開始行 + i, 開始列 + j).Value
            Next
        Next

'空白列の検索
        Dim 空白列
        空白列 = 1
        Do Until Worksheets("Sheet2").Cells(1, 空白列) = ""
            空白列 = 空白列 + 1
        Loop

'テンプレートで整形して出力
        テンプレート データ, 行数, 空白列
    End If
End Sub

?>

  • 最終更新:2011-05-27 01:46:14

このWIKIを編集するにはパスワード入力が必要です

認証パスワード