[VBAのエクセル]初心者に役立つ、コードのいくつかの作品は、


[VBAのエクセル]初心者に役立つ、コードのいくつかの作品は、



導入


フォーラムでとExcel VBAに関する多数の質問に続いて、私は初心者がVBAに慣れて助けるためにこの小さなチュートリアルを作成することを決めました。
Excelで動作するために必要ないくつかの基本は、出発点を提供するよりも、これ以上の野心を持っているこのチュートリアルで満たされています。
下記の異なる方法が明らかにのみ可能でない、あるいは最高の、彼らは動作します。

基本


シートの「選択シート("NomDeLaFeuille").Selectセルの「セレクションレンジ("A1).Select別のExcelを開きますChDir関数 "ディレクトリのファイルパス"Workbooks.Openファイル名:="ディレクトリ\ file.xlsファイルのパス "「ファイルを閉じます現在のファイルを閉じますActiveWindow.Close「ORWorkbooks.Closeファイル名:="ディレクトリ\ file.xlsファイルのパス "

今基礎を築いていること、ファイルを参照する方法をご覧ください。

ファイルを閲覧


「行を見ますI = 1シート("基礎").Selectしばらくない範囲("A" & 私 & "").Valueの= ""I = I + 1WEND「=> 最初の空行に移動することができ[参照列一方、細胞(1、I) <> ""I = I + 1WEND「あなたは列の数字の文字を見つけるようにしますNUMCOL =細胞(1、I).Column手紙= IIF(NUMCOL > 26、chrです(64 + NUMCOL \ 26) & CHR(64 + NUMCOLモッド26)、CHR(64 + NUMCOL))「=> 最初の空の列に配置されています

今、私たちが知っていることを行って、式を作成する方法を見て、グラフィックを適応させます。

グラフィックを適応、数式を導き出します

数式を引い


レンジ("A3:Z3"式を含む行の).Select「選択Selection.AutoFill先:=レンジ("A3:Z" & I - 1 & "")種類:= xlFillDefaultレンジ("A3:Z" & I - 1 & "").Select

グラフィックを適応


ActiveSheet.ChartObjects("図表3").ActivateActiveChart.SeriesCollection(3).SelectActiveChart.SeriesCollection(3)= .XValues "=「%名のワークブックR4C1:R!" & 私 & "C1"ActiveChart.SeriesCollection(1)= .XValues "=「%名のワークブックR4C1:R!" & 私 & "C1"ActiveChart.SeriesCollection(2)= .XValues "=「%名のワークブックR4C1:R!" & 私 & "C1"ActiveChart.SeriesCollection(3)= .Values "=「%名のワークブックR4C5:R!" & 私 & "C5"ActiveChart.SeriesCollection(2).SelectActiveChart.SeriesCollection(2)= .Values "=「%名のワークブックR4C7:R!" & 私 & "C7"ActiveChart.SeriesCollection(1).SelectActiveChart.SeriesCollection(1)= .Values "=「%名のワークブックR4C3:R!" & 私 & "C3"

これは、アカウントにすべてのデータを取るとグラフィックでそれらが関与します

フォーマット

変更セルサイズ


「細胞のサイズ変更行("2:" & 私 & "").SelectSelection.RowHeight = 25レンジ("A1:H1").Select

境界線を変更します


一つは、テーブルの枠線を扱いますレンジ("B3:H" & 私 & "").SelectSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders付(xlEdgeLeft).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わりますSelection.Borders付(xlEdgeTop).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わりますSelection.Borders付(xlEdgeBottom).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わりますSelection.Borders付(xlEdgeRight).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わりますSelection.Borders付(xlInsideVertical).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わりますSelection.Borders付(xlInsideHorizo​​ntal).LineStyle = xlContinuous.Weight = xlMedium.ColorIndex = xlAutomaticで終わります

このコードは、テーブルの上に、内部および外部の国境にできます。 「私は、」テーブルの最後の行に移動することができます。

別のシートに値を取得します。


NB =レンジ("B" & 私 & "").Valueのシート("処分NB").Selectレンジ("C" & J & "").ValueのNB =

行を挿入または削除


行("4:4").Select削除するには」= xlUpシフトSelection.Delete行("5:5").Select挿入するには」= xlDownシフトSelection.Insert

ほら、私は、あなたを助けることができるコードのいくつかの作品を願っています。私はVBAでのプロではないんだけど、私はそれに少し仕事をしていた、と私は、これらの数行に答えてくれるの質問をたくさん見ました。このチュートリアルでは、包括的にはほど遠い、使用される方法は、常に良いものではありませんが、私は実行する他の方法を聞いています!

良いプログラミング

Tof008
[VBAのエクセル]初心者に役立つ、コードのいくつかの作品は、この記事(PDF)をダウンロード tof008投稿者。 」と題されたこの文書 [ExcelのVBA]初心者に役立つ、いくつかのコードスニペットは、「由来しますコード・ソース (Codes-sources.commentcamarche.net)クリエイティブ・コモンズのライセンスの下で利用できるようになります。あなたはライセンスの定める条件の下で、このページのコピーを変更、コピーすることができ、このノートとして明確に表示されます。この記事をダウンロードする(PDF