vba
なんかグーグルのapiいきなり支払いとか英語できそうで怖い（先入観）からヤフーのAPI使うよ（笑） developer.yahoo.co.jpなんかアプリケーション作るとClient IDってのが発行されるのでどっかにコピペしておきましょう。 API使うときに「アプリケーションID…
♪僕はこんなコードであんなコードで 時を乗り越えてきた～ 相変わらずの素人くさいコードですが動きゃーいいのです。 ワードのマクロはクセがあるよねぇ～。エクセルからワード開いて検索、削除とかするとき。 'sleep 64bitはこうらしい Private Declare Ptr…
エルベさんったらまたお仕事の情報漏洩？ と思った皆様こんにちはこんにちは。 今日は2つのテーブルから1つのテーブルを生成する時に楽になる入力シートを作ろう、です。はい。職場（ネットにつながらない）で作ったので・・・一応、用途を変えたのであまり…
というわけで、初めてスライサーなる機能を使ってみました。こいつは便利だ！ ダミーデータ５０００件 hogehoge.tk住所が凶悪なセル結合 ばらして少し分類する。年代追加 班（ランダム1-10）を3つの課に分ける ちょい順番変えて整えますか。後値貼り付けして…
年賀状続き データはダミー。 郵便番号のハイフンいらない 数字全角 （ハイフンは全角にすると回転しちゃうので半角で(；´Д｀)） 後、 名字2文字名前2文字のバランスが悪いからスペース入れてみる。 名前一文字のバランスの悪さがなぁ・・・。 修正後 Excel…
何も考えずにみどりの小野 (id:yutoma233)さんにポストカードを送っていたのですが、これはこれで記録したほうがいいのか！？ （もらったポストカードは見れるけど送ったポストカードは見れない） しかしこれ・・・面倒だな・・・と。 結果イメージ 処理イメ…
ピクミンの画像を大量に貼り付けておりましたら、10M超えていたため怒られが発生しましたので、エクスプローラ→パワーポイントにドラッグドロップ→縮小して切り取ってブラウザに貼り付け、という作業が無限に発生しました。一生コピペだ、これ。 あ、画像た…
令和3年秋の叙勲発表されました。 www.soumu.go.jp別添「令和3年秋の叙勲 勲章受章者名簿」・・・マジかw 絶対元データあるのだろw このフォーマットに手打ちしてたらヤバすぎだろwwwww私、Microsoft Office 2010 しか持っておりませんのでそちらでどうにか…
＜追記＞ outlookのアカウントはhotmailのを使った。他のサービスのメアドでうまくいくのかは不明 ＜／追記＞ snack.elve.clubファイルを開くと予定表リストができて、チェックつけた予定の５分前にメールを送信予約してくれるマクロだよー 開くとこうなって…
会社で使用しているスケジュール管理のがOutlookなんだが、ようわからんが何をどう頑張ってもポップアップが出ないようにされているようだ。 ノートパソコン持ち歩くようになったので顧客に別の顧客の個人情報見えたらやばいってことかな？で、内勤のワタク…
ソース見てる人は気づいてると思うが、私は異常系の処理（エラー対応）が全くできない。エラーが出たときに考えるタイプなので各自補完して欲しい。 そしてできれば教えて欲しい(´；ω；｀)さて、前回の封筒データ。こちらのワードファイル*1と同じ場所に置か…
はい、こんな封筒データが有ったとします。個人情報は疑似個人情報データ生成サービスで生成した偽情報です。 季節が変わったので図を差し替えて欲しいと言わたとしますよー。毎月画像差し替えです。 そんじゃドキュメントと同じフォルダにある、一番新しいp…
会社から自分に送ったメールが届いてなくて顔面蒼白です・・・。やばい。クビになったら笑いましょう(；´Д｀)=cc(数えたい範囲,数えたい色のセル)で数える関数だよ。 ↓こんな感じで使えます Function cc(a As Range, b As Range) As Long Set b = b.Item(1) …
※excelじゃなくてwordのマクロです 条件 郵便番号の前に〒マークが入っている 住所の区切りたい位置にスペースが入っている 名前の最後は様＜改ページ＞ ↑の丸の部分を改行に置換する。1回実行で先頭から最初のスペース1つ置換 （住所入力のルールも徹底され…
snack.elve.club パワポ編 これの該当部を置換して指定枚数印刷。（面倒になったので保存すらしないｗ） テンプレファイルを開く スライド内のシェイプの文字列置換 印刷 テンプレを保存しないで閉じる を繰り返すことにします。（担当者３０名ほどなのでこ…
異世界転生したらプログラミングスキル初級で使えないので放逐されたエルベです。事務員として活躍してるはずです。うぅ・・・。えーっとですね。担当者３０人くらいそれぞれ顧客約１００人にDM発送したい、と。約３０００通です。さすがのエルベさんも今回…
excel2010。職場のエクセルは新しくて別の書き方だった。とりあえず。こういうグラフがたくさんあったとして 一気にこの書式にする なお、グラフスタイルの適用などしてるとうまくいかない。よくわかっていないｗ オレンジとしているのはテーマのカラーに依…
snack.elve.clubこれの画像作成過程。こちらの記事に従うとインストールされた全フォントのリストは作成できた。 vbabeginner.net今回購入した109のフォントのみで一覧を作成したい。 ファイル名＝フォント名のリストは作れたが20書体ほど足りない結果に。TT…
きっかけは共有メールにくるお客さんのメールを担当者に転送しなくちゃいけなくてメアド一覧で欲しいなぁーと思ったところから。 送信年月日, 送信者名, 送信者メールアドレスのCSVをCSV_FILE に作成します。 ※ExcelじゃなくてOutlookです。 Sub 共有メール…
正解とりあえず答えはこれでOK理由は執筆中ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1— ちゅんVBAer (@KotorinChunChun) 2020年6月13日 「vba オートフィルター 有無」辺りで検索するとわんさか出てくるんですが、…
こういうのが・・・10000件くらいあるとするじゃないですか。 んで、担当者ごとのグループの数と個人の数の合計を知りたかったんすよ。 （グループ番号ってのは別のファイルから引っ張ってきてる。） そんで今までやってたマクロでは グループ番号順に並び変…
いつも変数宣言などしないで使っていたのですが、勉強して反省しました。 さて、フィルターをかけたらデータがなかった時。 Option Explicit Sub Macro1() '表の最下行 Dim e As Long: e = Range("A1").End(xlDown).Row 'フィルターがかかってなかったらかけ…
まだついていけるぜ！！ｗ数値式に論理演算するのにも使えるよ。2進数で考えるとわかりやすいよ！ って言われて大丈夫な感じのレベル。パーフェクトExcel VBA (PERFECT SERIES)作者:高橋 宣成発売日: 2019/11/25メディア: 単行本（ソフトカバー）
B列のグループによってC列の人を変えたい マクロなしは前記事参照 snack.elve.clubこれをマクロで記録して整頓すると Sub Macro1() '名前を付ける Range("H1:H5,I1:I4,J1:J6,K1:K7,L1:L5").CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False…
現状のイメージ 月末のお仕事で社内共有の予定表に仮でスケジュールを入れて、中ボスに確認してもらう。リスケしたりなんだりして決定したら、それを自分の「メール用」って予定表にコピーして、参加者に会議開催通知を送っているのだ。だ。 １，３，４あた…
えーっと、マクロを書く場所（？）は www.lisz-works.com こちらが詳しいのでご参照ください。えーっと、選択したメールの添付ファイル（エクセル、ワード、PDF）を印刷するマクロってのは Print Attachments Automatically - VBOfficeの下のほうにある。 こ…
ディレクトリかフォルダか・・・そんな小さな事は気にしてはいけない。え、そのためにわざわざエクセル使うの？ コマンドでよくね？ って人は詳しく教えてください（汗） dirとfindとかを使うらしいところまでは分かったのだがイマイチ。パイプでコマンドく…
ユーザーフォームのラベル こうなっちゃうので今までは背景用ラベルと文字用ラベルを作って上下中央にあわせてたのね。 これが一つですむ方法。ただし画像ファイルを一つ使います。ネタ元：『ユーザーフォームのラベル文字をHeightの中央配置』（まき） エク…
シートに検索したい語句を入力して、その語句をファイル名に含むファイルの一覧を出力するマクロ
旅の始まり No.1528 条件に一致するファイル一覧を出力 その１ - スナックelve 本店 さくさくになったぜ！ と思ったのもつかの間。ファイルを目立たせたい、とUnicodeの記号を使われていたため 実行時エラー '52': ファイル名または番号が不正です。 ”❀-2013…
