タグ

VBAとexcelに関するy3kzのブックマーク (4)

  • CodeRepos::Share – Trac

    Twittexceler スクリーンショット これは何ですか? Excel VBA でかかれた Twitter クライアントです。 お仕事中とかにもこっそり使えるかもしれませんがどうでしょうね。 動作環境 Excel 2003 以降で動くんじゃないかと思いつつVista+Excel 2007でしか確認していません。 ダウンロード http://www.misuzilla.org/~mayuki/dist/Twittexceler_r460.zip (Excel 2003/xls形式) http://svn.coderepos.org/share/platform/excel/Twittexceler/Twittexceler.xlsm ライセンス MIT License 作った人 Committer:mayuki

  • エクセルでVBAで範囲に対してTRIM関数を適用したい - OKWAVE

    こんにちは。KenKen_SP です。 ループ処理は必須ですね。ただ、時間を短縮させることは可能です。 【POINT】 1. UsedRange や CurrentRegion、SpecialCells などで処理対象のセルを 限定させ、ループ数を減らす 全てのセルが選択された状態で考えてみます(Selection が Cells のとき) For Each c in Selection ...といったコードは良く見かけますが、この ままでは、65536×256 のループ処理になります。通常、処理が必要なのは、 何らかのデータが存在するセルのみなので、 For Each c in Intersect(Selection,Activesheet.UsedRange) のようにすると、ループ回数が激減するはずです。同様に、置換処理などでは 数式のあるセルでは置換処理は無意味ですから、 For

    エクセルでVBAで範囲に対してTRIM関数を適用したい - OKWAVE
    y3kz
    y3kz 2010/01/23
    ループ処理の高速化テクニック。セル参照をループさせるのではなく、値を配列に格納し、配列をループさせる。
  • VBAでの改行コード変換

    セル内で改行するには、改行したい位置でAlt+Enterキーを押します。 このとき、入力される改行コードは0A(LF)です。Windowsで使われている一般的な改行コードは0D 0A(CRLF)です。 次のようなコードで確認してみました。 Sub Sample1() Dim buf As String, dmp As String, i As Long buf = Range("B2").Text For i = 1 To LenB(buf) dmp = dmp & Hex(AscB(MidB(buf, i, 1))) & " " Next i MsgBox dmp End Sub Excelは文字データをUnicodeで管理しています。入力したそれぞれの文字に該当する文字コードは次の通りです。 田 : 0x7530 中 : 0x4E2D 1 : 0x0031 2 : 0x0032 3 :

    y3kz
    y3kz 2009/11/24
  • 読者10人と考えた「Excelレガシー」再生への道

    6月25日に公開したコラム「記者のつぶやき」の中で,“Excelレガシー”に関するご意見を募ったところ,ITpro読者10人の皆様から頂くことができた。この場を借りてお礼を申し上げる。“Excelレガシー”は,企業の業務部門が表計算ソフトExcelとその関数やマクロを使って自ら開発し,利用を続けてきた業務アプリケーションである。先のコラムにおいて,日経コンピュータ誌は「Excelレガシーが継続利用できない状況にある」という問題を提起した。以下では,読者から寄せられた意見をもとに,Excelレガシーが直面する問題について一緒に考えてみたい。 その前にお知らせが二点ある。ITpro読者からご意見を頂きつつ,日経コンピュータ7月9日号に「“Excelレガシー”再生計画」と題した特集記事を掲載した。Excelと上手に付き合っているユーザー企業やExcelの利活用に詳しい識者を取材し,Excelレガ

    読者10人と考えた「Excelレガシー」再生への道
  • 1