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
初日 [開発チーム]

グラフがかけた

 項目1項目2項目3項目4
data15354334343434
data224454345734
data3245453453355463
data445285424
data5554365754575575
data6542575245725245
data7455654575575575
Function test()
    Dim Rownum As Integer
    Dim Colnum As Integer
    Dim chart1 As Chart
    Dim StartCell As String
    Dim WS As Worksheet
    Set WS = Worksheets("Sheet1")
    Rownum = 2
    Colnum = 1
    Do Until Cells(Rownum, Colnum) = ""
        Rownum = Rownum + 1
    Loop

    Do Until Cells(2, Colnum) = ""
        Colnum = Colnum + 1
    Loop
    Rownum = Rownum - 1
    Colnum = Colnum - 1
    Set chart1 = Charts.Add
    chart1.SetSourceData WS.Range(WS.Cells(1, 1), WS.Cells(Rownum, Colnum))
End Function
Function M(msg As String)
    MsgBox (msg)
End Function

ファイルを開くよ
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8353;id=excel

Private Sub button1_Click()
    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
    If OpenFileName <> "False" Then
         MsgBox "選択したファイルは " & Dir(OpenFileName) & " です", vbInformation
        Workbooks.Open OpenFileName
    End If
End Sub
初日.txt · 最終更新: 2010/07/27 15:46 (外部編集)
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