プログラミング学習メモ -13ページ目

プログラミング学習メモ -13ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

30May
- Python基礎　upperメソッドで大文字変換する
  IDLE Shell画面で実行結果# 変数aに文字"Today is "を代入>>>a="Today is "# 変数ｂに文字"sunday"を代入>>>b= "sunday"# print関数で出力>>>print (a + b)Today is sunday# 変数ｃにa+bを代入>>>c= a + b# 変数ｃにｃのupperメソッドした結果を代入>>>c=c.upper()# print関数でcを出力>>>print (c)TODAY IS SUNDAY#から始まるのはコメントとなります。人間が読むもので、プログラム実行時、コンピューターに無視されます。青字の部分、>>>の後ろは、実行命令で、その次の行は、実行結果となります。大文字・小文字を操作する関連文字列メソッドstr.upper(): すべての文字を大文字に変換str.lower(): すべての文字を小文字に変換str.capitalize(): 先頭の一文字を大文字、他を小文字に変換str.title(): 単語の先頭の一文字を大文字、他を小文字に変換str.swapcase(): 大文字を小文字に、小文字を大文字に変換関連記事『Python とは?』　　今日から、人気プログラミング言語Pythonについて、少しずつ紹介していきたいと思います。Pythonとは　　Pythonは、オランダ人のグイド・ヴァン…ameblo.jp『Pythonのインストール（開発環境設定）』Pythonは、VBAと違って、使うにはPythonというソフト（無料）をインストールすることが必要です。今日は、そのインストール方法について、見てみましょう…ameblo.jp『Python プログラムの実行方法』Python プログラムの実行方法Pythonのプログラムの実行方法は、主に3種類があります。インタラクティブシェル（基本対話モード）統合開発環境での…ameblo.jp『Pythonの基礎　演算子とオペランド』演算子とオペランドPythonのインタラクティブシェルで、5+3を入れ、ENRERキーを押せば、電卓のように「四則演算」ができます。演算を行うための+や-…ameblo.jp『Python基礎　変数とは』変数とは？変数とは、文字列や数字などの値を格納するための「はこ」のようなものであり、いったん値を入れておけば、いつでも取り出せる。変数を使うことによっ…ameblo.jp『Python基礎変数名のルール』変数名のルール・使える文字は：アルファベットと数字と下線(ｱﾝﾀﾞｰﾊﾞｰ)・アルファベットの大文字と小文字が区別される・数字を先頭文字にすること…ameblo.jp『Python基礎　文字列の連結』文字列の連結IDLE Shell画面で実行結果#　 print関数で文字列を出力 #　（出力したい文字はシングルクォテーション「'」もしくはダブルクォテ…ameblo.jp『Python基礎変数の値を更新する』変数の値を更新するIDLE Shell画面で実行結果#　変数nameに"ももたろう" を代入name="ももたろう"#　変数nameを出力na…ameblo.jp『Python基礎　input関数でキーボードからの入力を取得』input関数でキーボードからの入力を取得IDLE Shell画面で実行結果# 変数nameにキーボードの入力結果を代入name= input…ameblo.jp
23May
- VBA　On Error GoToでエラー処理
  前回は、エラーの種類について、簡単に確認しました。構文エラーやコンパイルエラーは、コード作成時大抵回避可能です。一方、実行時エラーは、実際ユーザーによる予期せぬ操作で発生するものです。今回は、実行時エラー発生時の対処法をみていきましょう。On Error GoToでエラー処理構文On Error GoTo ラベル名(エラーが発生し得る処理)Exit Subラベル名:(エラー発生時の処理)Sub test() Dim iNum As Integer iNum = FreeFile On Error GoTo myLabel '　書き出すファイルの保存場所を””で囲む Open "D:\test\My_test.txt" For Output As #iNum ''ここでエラーが発生すると Write #iNum, "Hello"; "ExcelVBA" Print #iNum, "************************" Print #iNum, "Hello ExcelVBA" '　テキストファイルを閉じる Close iNum Exit SubmyLabel: ''この行にジャンプします MsgBox "ファイルを開けません", vbExclamation End Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　エラーの種類』VBAプログラムエラーは、原因や発生するタイミングなどで様々な分類がありますが、ここでは、下記次のように分類します。エラーの種類構文エラーコンパイルエ…ameblo.jp『VBA テキストファイルを書き出す』テキストファイルを書き出すSub test() ’　テキストファイルを書き出す Dim iNum As Integer iNum = F…ameblo.jp
16May
- VBA　エラーの種類
  VBAプログラムエラーは、原因や発生するタイミングなどで様々な分類がありますが、ここでは、下記次のように分類します。エラーの種類構文エラーコンパイルエラー実行時エラー構文エラー　構文エラーは、いわゆるただの打ち間違いです。オブジェクト名やプロパティ名の綴りが違ったり、かっこやダブルクオーテーション("")の数が合わなかったり、スペース、カンマとコロンが抜けったり、そういった原因によるエラーです。下の図のように、コード入れる途中に、文字が赤くなったり、教えてくれています。割りと、その場で直せるもので、特に問題がないです。コンパイルエラー　コンパイルエラーは、VBAコードがコンパイルされるときに発生するエラーです。コンパイルとは、ソースコードの内容をコンピュータが理解しやすい形に変換することを言います。ここでは、主に論理的なエラーがチェックされます。上の図は、変数の宣言を強制する設定をしたにもかかわらず、宣言をしなかったため出るエラーです。上の図は、Ifブロックに対応するEnd If がないによるエラーです。コンパイルエラーは、メッセージに従ってコードを修正すればいいです。実行時エラー　実行時エラーは、VBAコードが実行されるときに初めて出るエラーです。コードに文法的な問題がないが、論理的な間違いがあるため実行できないものが多いです。エラーが出たら、エラーの原因を突き止めて修正すればいいです。実行時エラーが出たとき、割当られた固有なエラー番号やメッセージが提示されます。上の図は、ワークシートが１枚しかないのに３枚目のワークシートの名前を取得しょうとして、「インデックスが有効範囲にありません」というエラーが出ました。もし、上のエラーメッセージを見ても、エラー原因を特定できない場合、エラー番号やメッセージを使ってググってみることも一つの方法となります。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事
09May
- VBA　配列でデータを高速抽出
  配列でデータを高速抽出Sub test() '　配列でデータを高速抽出 Dim i, j As Long Dim A '　元データを配列Aに代入 A = Range("A1:D" & Cells(Rows.Count, "A").End(xlUp).Row) Dim B '　出力結果を格納する配列を設定 ReDim B(1 To UBound(A, 1), 1 To 4) j = 0 For i = 1 To UBound(A, 1) '　抽出条件設定（名前なか「田」を含む、性別＝女） If InStr(A(i, 1), "田") > 0 And A(i, 2) = "女" Then j = j + 1 '　該当するデータを配列Bへ格納 B(j, 1) = A(i, 1) B(j, 2) = A(i, 2) B(j, 3) = A(i, 3) B(j, 4) = A(i, 4) End If Next '　結果をセルG２に代入する Range("G2").Resize(j, 4) = BEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA　配列の要素数変更』配列の要素数変更Sub test()　’　配列の要素数変更 Dim Vegetabales() As String Dim Vb As Va…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp『VBA Array関数で値をまとめ格納』Array関数構文Array(arglist)配列を含む Variant を返します。引数arglistには、配列として格納するデータをカンマ（,）で区…ameblo.jp『VBA　2次元配列で別シートへデータをコピペ』2次元配列で、別シートへコピペSub test()' 　2次元配列で、別シートへデータをコピペ Dim Data Dim r, c As …ameblo.jp『VBA　配列変数を初期化』配列変数を初期化Sub test() ' 配列変数を初期化 Dim Yasai(3) As String Dim i As Integ…ameblo.jp
01May
- VBA　複数シートをコピーして別ブックへ保存
  複数シートをコピーして別ブックへ保存するSub Test() ' 複数シートを新しいブックへコピー ThisWorkbook.Worksheets(Array("4月", "5月")).Copy ' 新しく作成したブックを名前を付けて保存 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\新在庫管理表.xlsx" ' 新しく作成したブックを閉じる ActiveWorkbook.Close True End Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　シートをPDF保存』シートをPDF保存Sub MyPdf()　　’ 　アクティブシートをPDF化 Dim MyName As String Dim WS As …ameblo.jp『VBA ブックを閉じる（Closeメソッド）』変更を保存せず閉じるSub test() ’ 変更を保存せず閉じる　　ActiveWorkbook.Close　　’ActiveWorkbo…ameblo.jp『VBA ワークシートをグループ化する』Array関数によるシートグループ化Sub test() ’Sheet1とSheet3グループ化する（同時選択状態） Sheets(A…ameblo.jp『VBA シート移動・コピー』シートの移動構文Worksheets.Move(Before, After)Sub test1() ’Sheet2をSheet3の後ろ…ameblo.jp
25Apr
- VBA　配列変数を初期化
  配列変数を初期化Sub test() ' 配列変数を初期化 Dim Yasai(3) As String Dim i As Integer Yasai(0) = "きゅうり" Yasai(1) = "とうもろこし" Yasai(2) = "さつまいも" Yasai(3) = "とまと" For i = 0 To 3 Debug.Print i & " : " & Yasai(i) Next Debug.Print "***以下は初期化後の配列***" Erase Yasai '　静的配列を初期化 For i = 0 To 3 Debug.Print i & " : " & Yasai(i) NextEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA　配列の要素数変更』配列の要素数変更Sub test()　’　配列の要素数変更 Dim Vegetabales() As String Dim Vb As Va…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp『VBA Array関数で値をまとめ格納』Array関数構文Array(arglist)配列を含む Variant を返します。引数arglistには、配列として格納するデータをカンマ（,）で区…ameblo.jp『VBA　2次元配列で別シートへデータをコピペ』2次元配列で、別シートへコピペSub test()' 　2次元配列で、別シートへデータをコピペ Dim Data Dim r, c As …ameblo.jp
18Apr
- VBA　2次元配列で別シートへデータをコピペ
  2次元配列で、別シートへコピペSub test()' 　2次元配列で、別シートへデータをコピペ Dim Data Dim r, c As Long Data = Sheets(1).Range("A1").CurrentRegion.Value '1次元の最大インデックスを取得(行) r = UBound(Data, 1) '2次元の最大インデックスを取得(列) c = UBound(Data, 2) With Sheets(2) .Range(.Cells(1, 1), .Cells(r, c)) = Data End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp『VBA Array関数で値をまとめ格納』Array関数構文Array(arglist)配列を含む Variant を返します。引数arglistには、配列として格納するデータをカンマ（,）で区…ameblo.jp
11Apr
- VBA　配列の要素数変更
  配列の要素数変更Sub test()　’　配列の要素数変更 Dim Vegetabales() As String Dim Vb As Variant ReDim Vegetabales(1) Vegetabales(0) = "ブロッコリ" Vegetabales(1) = "フロワー" ReDim Preserve Vegetabales(3) Vegetabales(2) = "セロリ" Vegetabales(3) = "パセリ" For Each Vb In Vegetabales Debug.Print Vb NextEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp『VBA Array関数で値をまとめ格納』Array関数構文Array(arglist)配列を含む Variant を返します。引数arglistには、配列として格納するデータをカンマ（,）で区…ameblo.jp
04Apr
- VBA　テーブル（ListObjects）フィルターしたデータを別シートへコピペ
  フィルターしたデータを別シートへコピペSub test() ’　フィルターしたデータを別シートへコピペ(見出し無し） Dim myR As Long myR = 2　　’　貼り付け先行番 With Sheets(1).Range("A2").ListObject .Range.AutoFilter 2, "青" .ListColumns(1).DataBodyRange.Copy Sheets(2).Range("A" & myR).PasteSpecial (xlPasteValues) .ListColumns(3).DataBodyRange.Copy Sheets(2).Range("B" & myR).PasteSpecial (xlPasteValues) .ListColumns(4).DataBodyRange.Copy Sheets(2).Range("C" & myR).PasteSpecial (xlPasteValues) End WithEnd Sub実行結果Sub test() ’　フィルターしたデータを別シートへコピペ(見出し有り） Dim myR As Long myR = 1　’　貼り付け先行番 With Sheets(1).Range("A2").ListObject .Range.AutoFilter 2, "青" .ListColumns(1).Range.Copy Sheets(2).Range("E" & myR) .ListColumns(3).Range.Copy Sheets(2).Range("F" & myR) .ListColumns(4).Range.Copy Sheets(2).Range("G" & myR) End With End Sub実行結果参考記事『VBA テーブル（ListObjects）の基本操作』テーブルの有無確認Sub test() 'テーブル有無確認 Dim WS As Worksheet Set WS = Act…ameblo.jp『VBA　テーブル（ListObjects）の設定・解除』テーブルに設定Sub test() ' テーブルに設定 Dim ws As Worksheet Set ws = ActiveSh…ameblo.jp『VBA　テーブル（ListObjects）指定値以上赤文字にする』テーブル（ListObjects）指定値以上赤文字にするSub test() ’　 With Range("A1").ListObject…ameblo.jp『VBA　テーブル（ListObjects）データを追加する』テーブル（ListObjects）データを追加するSub test() ’　データを追加する With Range("A1").ListOb…ameblo.jp『VBA　テーブル（ListObjects）のフィルター設定・解除』テーブル（ListObjects）のフィルター設定・解除Sub test1()　　'テーブル（ListObjects）のフィルター解除　　Rang…ameblo.jp― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る
28Mar
- VBA Array関数で値をまとめ格納
  Array関数構文Array(arglist)配列を含む Variant を返します。引数arglistには、配列として格納するデータをカンマ（,）で区切って指定します。引数を指定しない場合は長さ 0 の配列が作成されます。Array関数で値をまとめ格納Sub test() '　Array関数で値をまとめ格納 Dim myAdd As Variant Dim i As Long myAdd = Array("大阪", "名古屋", "東京") ' ループで出力 For i = 0 To 2 Cells(i + 2, 1) = myAdd(i) Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　配列とは？』配列とは配列は、通常配列変数でも呼ばれ、一つの変数に複数の値をまとめて格納できる特殊なデータ構造のことです。配列には、固定長配列（静的配列）と動的配列の…ameblo.jp『VBA 文字列を分割する（Split関数）』　実務では、CSVファイルのように、「,」など特定の符号や文字で、文字列を分割したりすることがよくあります。Split関数は、「,」（カンマ）やスペース等で区…ameblo.jp『VBA 配列で文字列を結合する』　　実務では、場合によって文字列をつなげることがあったりします。今日は、「＆」符号以外で、Join関数でつなげる方法を見てみましょう。配列（Join関数）…ameblo.jp『VBA　一次元配列をセルに代入する』一次元配列をセルに代入するSub test1() ' 配列をセルに代入する Dim myStr(3) As String myStr(…ameblo.jp