【ExcelVBA】複数のCSVファイルを一括でExcelファイルに変換する｜もりさんのプログラミング手帳
Sub main() Application.ScreenUpdating = False Dim OpenFileName As Variant OpenFileName = Application.GetOpenFilename _ ("CSVファイル,*.csv*", MultiSelect:=True) If Not IsArray(OpenFileName) Then MsgBox "キャンセルしました。": Exit Sub End If Dim fso As FileSystemObject Set fso = New FileSystemObject Dim n As Long '選択したファイル数、処理を繰り返す For n = LBound(OpenFileName) To UBound(OpenFileName) Dim wb As Workbook Set wb =
【Windows】forfilesコマンドで指定サイズ以上のファイル一覧を取得する｜もりさんのプログラミング手帳
こんな会話をオフィスでしているあなた！この記事を読んで、フォルダの大掃除をしましょう！ たしかにファイルを削除すれば容量は空きますが、小さなファイルをいくら削除しても、たいした効果はありません。 たとえば、50KBのファイルを10個削除するより、1MBのファイルを1個削除したほうが空き容量が増えますよね。 （※ファイルサイズの単位の話はのちほど詳しく説明します！）
IFTTTでブログの新規記事のタイトルとURLをスプレッドシートに追記する（GAS×TwitterBot③）｜もりさんのプログラミング手帳
こんにちは、GAS大好きのもり(@moripro3)です！ 「Google Apps ScriptでTwitterBotを作ろう！」をシリーズでお届けします。 このシリーズで作るのは「自分のブログからランダムな1記事を取得して、タイトルとURLを、毎日指定の時刻に自動ツイートするBot」です。 前回は、WordPressの既存記事の一覧をCSV出力する方法を紹介しました。 WordPressのブログ記事一覧をCSV出力する（GAS×TwitterBot②）GoogleAppsScriptを使ってTwitterBotを作ろう！シリーズ第2回目は、WordPressのブログ記事一覧をCSV出力する方法を紹介しています。...
【ExcelVBA】テキストファイルを取り込んでエクセルシートに書き出すマクロ｜もりさんのプログラミング手帳
Sub テキスト読み込み() Dim txtName As String txtName = Application.GetOpenFilename("テキストファイル,*.txt") If txtName <> "False" Then Open txtName For Input As #1 End If Dim r As Long r = 1 '1行目から書き出す Do Until EOF(1) Dim buf As String Line Input #1, buf Dim aryLine As Variant '文字列格納用配列変数 aryLine = Split(buf, vbTab) '読み込んだ行をタブ区切りで配列変数に格納 Dim i As Long For i = LBound(aryLine) To UBound(aryLine) 'インデックスが0から始まるので列番
【ExcelVBA】Findメソッドでセル範囲を検索する｜もりさんのプログラミング手帳
Sub findmacro() '検索範囲のセル(Range)を指定する Dim SearchArea As Range Set SearchArea = Range(Cells(1, 1), Cells(3, 3)) '(=A1:C3) For num = 1 To 9 '指定の検索範囲を検索する Dim result As Range Set result = SearchArea.Find(what:=num, LookAt:=xlWhole) '①検索範囲にnumが見つからなかった場合 If result Is Nothing Then Debug.Print num & "は見つかりませんでした" End If '②検索範囲にnumが見つかった場合 If result Is Nothing = False Then Debug.Print num & "が見つかりました" End
【Excel実務】IF関数とCOUNTIF関数でリストの差分比較をする｜もりさんのプログラミング手帳
Excel作業で、列同士の文字列や数字を比較して、差分チェックをすることってありますよね。 たとえば、A列とB列の文字列を比較して、 A列にあってB列にないもの B列にあってA列にないもの A列B列両方にあるもの まさかこれを全件目視でチェックするなんて・・・苦行ですよね。 ここはサクッと関数でチェックしちゃいましょう。 Excelシートの二つのリストを比較する 「X月15日締めの伝票番号一覧」と「X月末日締めの伝票番号一覧」を比較して、「15日～末日の間に増加した伝票一覧」を抽出します。 「両方の列を昇順ソートして同じ行の値比較する」方法がありますが、上記の例の場合、伝票の種類によって番号の先頭が「1からはじまる」「2からはじまる」「3からはじまる」の３種類存在するので、昇順ソートでは比較できないのです。 使用する関数 この作業で使用するのは、毎度おなじみこの２つです。 IF関数とCOU
自分働き方改革で勉強時間を作る！～派遣社員に転職したら月100時間勉強できた話～｜もりさんのプログラミング手帳
この記事を読んでほしい人は？ 今年こそは資格をとりたい！ スキルアップして転職したい！ 独立準備のために副業したい！ でも、残業が多くて時間がない… 毎日、家に帰ってただ寝るだけの生活をしている…この生活を変えたいけど、どうしていいかわからない… 私は新卒で就いた正社員の職を退職後、派遣社員に転職してから約2年、現在は4社目で就業中です。 最初から勉強時間を確保するために派遣社員に転職したのではなく、仕事に疲れすぎて「残業なし」の派遣社員を選んだ結果、予想外に勉強時間がたくさん確保できて、スキルアップできました！ 「派遣社員」には、非正規・不安定などネガティブなイメージがあります。 でも、自分の経験を元に、スキルアップを目的とした「戦略的派遣社員」という働き方のメリットを紹介していきますよ！ まずは負のループから脱出しよう 資格を取得して転職したい！スキルアップして転職したい！ でも、今の
【ExcelVBA】Functionプロシージャとは？（図解付き）｜もりさんのプログラミング手帳
オフィスワークでの例 あなたの部署に、新規の派遣社員が来ることになりました。業務をしてもらうために、パソコン操作用のアカウントが必要です。 多くの企業では、社内のＩＴ部門で専任の担当者が実施していますね。 各部署で個別にやることも可能ですが、 各部署の本業にかけるべき時間が失われる 不慣れな作業者が操作を間違えると、データが壊れるかもしれない（危険） などの理由で、各部署で個別に作業するのは非効率的です。 会社全体にとっても、各部署にとっても、作業者を共通化したほうが効率的ですね。 そこでこのようなルールがあります
お仕事のご依頼専用フォーム｜もりさんのプログラミング手帳
当ブログをご覧いただきありがとうございます。 こちらのページは、お仕事のご依頼をいただく専用のページです。 Webサイトへの寄稿 雑誌・書籍への執筆 などをお受けしております。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
自分が普通じゃなくて苦しかったあの頃 ～「もり」の誕生秘話～｜もりさんのプログラミング手帳
【開業freee】開業に必要な書類が簡単5分で作れる！｜もりさんのプログラミング手帳
変わり続けなければ生きていけない？いいえ、変わらないことも大切です｜もりさんのプログラミング手帳
ブログ2年生が「世界一やさしいブログの教科書1年生」をオススメする理由｜もりさんのプログラミング手帳
プログラミングの勉強を始めたら、昔の自分をぶん殴ってやりたくなったのさ｜もりさんのプログラミング手帳
【独学・合格体験記】VBAエキスパート ExcelVBAベーシック｜もりさんのプログラミング手帳
【VBAでOutlook操作】添付ファイルの有無を判定して下書きメールを作成する｜もりさんのプログラミング手帳
【Windows】Excelのリストから複数フォルダを一括作成する（プログラミング不要）｜もりさんのプログラミング手帳
【独学・合格体験記】VBAエキスパート ExcelVBAスタンダード｜もりさんのプログラミング手帳
【Windows】フォルダ内のファイル名一覧を取得・出力する（プログラミング不要）｜もりさんのプログラミング手帳
もりさんのリニューアルとモリさん追加のお知らせ｜もりさんのプログラミング手帳