スナックelve 本店

バツイチ40代女の日記です

vba

ListBox.ColumnHeads 微妙すぎる!!

こういう表があってこれをリストボックスにヘッダー付きで表示したいと思うじゃない ユーザーフォームにリストボックス追加してサクサクっと書くじゃない 設定されないのよねぇ・・・って思っていたけどまぁ最終的にやりたいことはできてたから放置してたん…

CSVで読み込んだ結果をパワーポイントに図形として挿入する

こういうCSVを読み込ませて こういうパワーポイントにするよ (もちろん四角は独立して動かせるよ) Sub Sample2() 'http://officetanaka.net/excel/vba/file/file10.htm 'https://ateitexe.com/excel-vba-csv-to-multi-dimensional-array/ Dim p As String:…

パワーポイントのマクロでテーマスタイルと標準スタイル確認

↓これをpowerpointでやりたい!!! artfulplace.hatenablog.com要するにテーマスタイルと標準スタイル(?)を並べたい!!定数で指定してるのにエラーになるのかよ!! MsoShapeStyleIndex 列挙(?)はSingleで指定しないとエラーになるよ MsoShapeStyleI…

ワードのドキュメントと同じフォルダの一番新しいcsvを条件付きで差し込む

・ワードのドキュメント(ファイル)はマクロ有効にしておく ・↑と同じフォルダにcsvを置く ・Normalじゃなくて↑のファイルのマクロに書くデータベース系はホント苦手なんスよ。 ダミーデータはこんな感じ Option Explicit 'ファイル閉じる前に差し込みなし…

送信済みメールのメールアドレスの一覧が欲しい

日報を書くのに、その日の行動を振り返りどこの誰に何を送ったのかを入力するんすが(本当は都度入力なのだがどうしても漏れる)、メールアドレスの一覧がアレばそこから顧客リストの引っ張ってcsv入力できるのになぁ・・・と。 特定フォルダのメール一覧を…

2点間の距離を知りたい(ヤフーのAPI使う)

なんかグーグルのapiいきなり支払いとか英語できそうで怖い(先入観)からヤフーのAPI使うよ(笑) developer.yahoo.co.jpなんかアプリケーション作るとClient IDってのが発行されるのでどっかにコピペしておきましょう。 API使うときに「アプリケーションID…

人生に不安を感じたらエクセルを開こう(ワードの話)

♪僕はこんなコードであんなコードで 時を乗り越えてきた~ 相変わらずの素人くさいコードですが動きゃーいいのです。 ワードのマクロはクセがあるよねぇ~。エクセルからワード開いて検索、削除とかするとき。 'sleep 64bitはこうらしい Private Declare Ptr…

名簿と商品管理とかなんかそういうの

エルベさんったらまたお仕事の情報漏洩? と思った皆様こんにちはこんにちは。 今日は2つのテーブルから1つのテーブルを生成する時に楽になる入力シートを作ろう、です。はい。職場(ネットにつながらない)で作ったので・・・一応、用途を変えたのであまり…

Excelのスライサーが便利だった

というわけで、初めてスライサーなる機能を使ってみました。こいつは便利だ! ダミーデータ5000件 hogehoge.tk住所が凶悪なセル結合 ばらして少し分類する。年代追加 班(ランダム1-10)を3つの課に分ける ちょい順番変えて整えますか。後値貼り付けして…

年賀状中間状況(調整中)

vba

年賀状続き データはダミー。 郵便番号のハイフンいらない 数字全角 (ハイフンは全角にすると回転しちゃうので半角で(;´Д`)) 後、 名字2文字名前2文字のバランスが悪いからスペース入れてみる。 名前一文字のバランスの悪さがなぁ・・・。 修正後 Excel…

ピクミンのポストカードのリストを作れるようにしたい

何も考えずにみどりの小野 (id:yutoma233)さんにポストカードを送っていたのですが、これはこれで記録したほうがいいのか!? (もらったポストカードは見れるけど送ったポストカードは見れない) しかしこれ・・・面倒だな・・・と。 結果イメージ 処理イメ…

画像を縮小してカットするマクロ

ピクミンの画像を大量に貼り付けておりましたら、10M超えていたため怒られが発生しましたので、エクスプローラ→パワーポイントにドラッグドロップ→縮小して切り取ってブラウザに貼り付け、という作業が無限に発生しました。一生コピペだ、これ。 あ、画像た…

令和3年秋の叙勲 勲章受章者名簿をどうにかする

令和3年秋の叙勲発表されました。 www.soumu.go.jp別添「令和3年秋の叙勲 勲章受章者名簿」・・・マジかw 絶対元データあるのだろw このフォーマットに手打ちしてたらヤバすぎだろwwwww私、Microsoft Office 2010 しか持っておりませんのでそちらでどうにか…

指定日の予定の5分くらい前にメール送信予約したい

<追記> outlookのアカウントはhotmailのを使った。他のサービスのメアドでうまくいくのかは不明 </追記> snack.elve.clubファイルを開くと予定表リストができて、チェックつけた予定の5分前にメールを送信予約してくれるマクロだよー 開くとこうなって…

今日の予定スケジュールを取得したい

会社で使用しているスケジュール管理のがOutlookなんだが、ようわからんが何をどう頑張ってもポップアップが出ないようにされているようだ。 ノートパソコン持ち歩くようになったので顧客に別の顧客の個人情報見えたらやばいってことかな?で、内勤のワタク…

開いたファイルと同じ場所にある最新のcsvを差し込む

ソース見てる人は気づいてると思うが、私は異常系の処理(エラー対応)が全くできない。エラーが出たときに考えるタイプなので各自補完して欲しい。 そしてできれば教えて欲しい(´;ω;`)さて、前回の封筒データ。こちらのワードファイル*1と同じ場所に置か…

図を差し替えたいだけなんじゃ~!!!

はい、こんな封筒データが有ったとします。個人情報は疑似個人情報データ生成サービスで生成した偽情報です。 季節が変わったので図を差し替えて欲しいと言わたとしますよー。毎月画像差し替えです。 そんじゃドキュメントと同じフォルダにある、一番新しいp…

指定範囲の指定色を数える関数

会社から自分に送ったメールが届いてなくて顔面蒼白です・・・。やばい。クビになったら笑いましょう(;´Д`)=cc(数えたい範囲,数えたい色のセル)で数える関数だよ。 ↓こんな感じで使えます Function cc(a As Range, b As Range) As Long Set b = b.Item(1) …

おまけ・現在のページの住所の空白を改行に置換するマクロ

※excelじゃなくてwordのマクロです 条件 郵便番号の前に〒マークが入っている 住所の区切りたい位置にスペースが入っている 名前の最後は様<改ページ> ↑の丸の部分を改行に置換する。1回実行で先頭から最初のスペース1つ置換 (住所入力のルールも徹底され…

差し込み印刷-2-

snack.elve.club パワポ編 これの該当部を置換して指定枚数印刷。(面倒になったので保存すらしないw) テンプレファイルを開く スライド内のシェイプの文字列置換 印刷 テンプレを保存しないで閉じる を繰り返すことにします。(担当者30名ほどなのでこ…

差し込み印刷-1-

異世界転生したらプログラミングスキル初級で使えないので放逐されたエルベです。事務員として活躍してるはずです。うぅ・・・。えーっとですね。担当者30人くらいそれぞれ顧客約100人にDM発送したい、と。約3000通です。さすがのエルベさんも今回…

今日やったこと:マクロでエクセルのグラフの書式を変更する(不完全)

excel2010。職場のエクセルは新しくて別の書き方だった。とりあえず。こういうグラフがたくさんあったとして 一気にこの書式にする なお、グラフスタイルの適用などしてるとうまくいかない。よくわかっていないw オレンジとしているのはテーマのカラーに依…

あるフォルダにあるフォント名の一覧をファイルに出力

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 'フィルターがかかってなかったらかけ…

お勉強中

VBA

まだついていけるぜ!!w数値式に論理演算するのにも使えるよ。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…

サブの予定表やら共有の予定表やらから予定や会議開催通知を作る

現状のイメージ 月末のお仕事で社内共有の予定表に仮でスケジュールを入れて、中ボスに確認してもらう。リスケしたりなんだりして決定したら、それを自分の「メール用」って予定表にコピーして、参加者に会議開催通知を送っているのだ。だ。 1,3,4あた…