タグ

ExcelとVBAに関するU1and0のブックマーク (4)

  • エクセルVBAでAccessデータベースと接続する最もシンプルなプログラム

    Accessデータベース内にテーブルを準備 まずはAccessでこんなテーブルをを作ってみました。 都道府県ごとの面積や人口、区市町村数などをまとめたデータです。テーブル名は「データ」という名前です。 このテーブルを含むAccessデータベースファイルを「test.accdb」というファイル名で、今回のエクセルVBAを記述したファイルと同じフォルダに格納しました。 エクセルVBAからこのデータベースへの接続を試みていきます。 ADODB.Connectionオブジェクトでデータベースに接続する Accessデータベースと接続をしてやり取りをする際には、ADODB.Connectionオブジェクトを使います。 ADODB…?どこかで聞いたような名前ですね… ADOはActiveX Data Objectsの略で ADOとは、Microsoftが提唱しているデータアクセス技術のことである。 引

    エクセルVBAでAccessデータベースと接続する最もシンプルなプログラム
    U1and0
    U1and0 2018/10/02
    ADODBアクセス
  • 方法: Windows Phone Marketplace 用のスクリーンショットを作成する

    This browser is no longer supported. Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.

    方法: Windows Phone Marketplace 用のスクリーンショットを作成する
    U1and0
    U1and0 2018/10/02
    します。 RDS での使用   クライアント側の Connection オブジェクトで Open メソッドを使用する場合、その Connection オブジェクトで Recordset が開かれるまで、サーバーへの接続は確立されません。
  • ExcelにPythonが搭載? - Qiita

    自分は、1年前からPythonを使い始めました。Pandasを始めとするPythonのデータサイエンス用のライブラリーは便利です。 つい最近、マイクロソフトがExcelPythonを搭載することを検討しているというニュースが流れました。VBAとは長い付き合いなので、前半でVBAよりPandasが数倍便利だということを書いて、後半でExcelPythonを搭載されることへのコメントを書くことにします。自分は、ExcelはデータのためのGUIツールとしては便利で役に立つツールだと思っています。ただ、VBAの方が長年放置されていて最近の言語としては落第なのでPythonが搭載されることを期待したいと思っています。急遽テーマを変更したので、時間がなくて以下は「Excel VBA Advent Calendar 2017 20日目」の記事と同じにしてしまいました。 「ExcelPythonが搭

    ExcelにPythonが搭載? - Qiita
  • 最終行を取得するVBAのコード-End(xlDown):Excel VBA Rangeオブジェクト/Endプロパティ

    ▼最終行の行番号をメッセージボックスに表示するコード ※A列にデータが隙間なく入力されているときに最終行の行番号をメッセージボックスに表示する例 MsgBox Range("A1").End(xlDown).Row 上記のコードを実行すると、A列の最終行の行番号がメッセージボックスに表示されます。 Range("A1").End(xlDown)というコードの意味 Excelでセル選択を行うのにとても便利な[Ctrl]+矢印キーという操作があります。 Excelには、データの途切れるセルがわかっているのです。 データの途切れるセルがわかっているので[Ctrl]+矢印キーというショートカットキーで、データの途切れるセルを選択できるわけです。 そのデータの途切れるセルをVBAで取得するときに利用するのが、RangeオブジェクトのEndプロパティです。 データの途切れる箇所と一言で言っても、4方向

    U1and0
    U1and0 2015/12/29
    上記ではメッセージボックスに行番号をいきなり表示するので  MsgBox Range("A1").End(xlDown).Row としていますが、その行番号をプロシージャの中で使うのなら  end_row = Range("A1").End(xlDown).Row のような形で変数に格納して使うと便
  • 1