Excel VBAからインターネット上のホームページにPostする - エクセルマクロ達人養成塾塾長ブログ
たまには、Excelマクロでのコーディングの話を。 以前、「メール配信システムが障害続きなのでメール配信システムを変えたくて仕方がない」ということをブログで書いた。 http://d.hatena.ne.jp/juku-cho/20090202/1233587586 で、今月から新規にメール配信システムを導入したのだが。 ついでに、Excelで作った顧客データベースに新規に受講生が登録された段階で、ネット上にあるメール配信システムに自動的にその受講生の方へのメール配信が開始されるような仕組みを作った。 以下は、そのサンプルコード。 小川が自分でネット上で情報を探した際、サンプルコードと関連リンクが全部書かれているページが見つからなくて多少手こずったので、あとで同じようなことをする人のために書いておく。 Sub PostForm(sP1 As String, sP2 As String, s
このURLのページは表示することが出来ませんでした。 IP分散サーバーならIQサーバー｜クラスCの完全分散が月額139円～
このURLのページは表示することが出来ませんでした。 IQサーバー
三流君VBA:Excel 起動オプションのお話(引数的なラブレターを渡したい)
[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧] －－＞ No.086 Excel 起動オプションのお話(引数的なラブレターを渡したい) 結局、うまくできなかったので、 Set oApp = CreateObject("Excel.Application") oApp.Run "関数名", パラメータ で渡したように見せただけでした・・・ ※もっとスマートな方法がありそうですが、何かの参考となれば幸いです。 メルマガ発行内容 ＜Excel 起動オプションのお話(引数的なラブレターを渡したい)＞ どうも、三流プログラマーのＫｅｎ３です。 今回は、 Excelの起動オプションのお話です /* * １．今回のキッカケ */ http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi 掲示板に、下記の質問が来ました。 ------------
【インフォシーク】Infoseek ： 楽天が運営するポータルサイト
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
.aspx)
Download Visual Studio 2005 Retired documentation from Official Microsoft Download Center
All Microsoft Global Microsoft 365 Teams Copilot Windows Surface Xbox Deals Small Business Support Software Windows Apps AI Outlook OneDrive Microsoft Teams OneNote Microsoft Edge Skype PCs & Devices Computers Shop Xbox Accessories VR & mixed reality Certified Refurbished Trade-in for cash Entertainment Xbox Game Pass Ultimate PC Game Pass Xbox games PC and Windows games Movies & TV Business Micro
条件付き書式で4つ以上の条件を指定−Worksheet_Change:エクセルマクロ・Excel VBAの使い方/イベントプロシージャ
4つ以上の条件を指定して、条件に応じて自動的に書式を変更する必要があるのならば、VBA（Visual Basic for Applications）で、イベントプロシージャを作成してください。 ▼条件に応じてフォントの色を変更するイベントプロシージャ ※B2:B11セルのフォント色が入力された値によって自動的に変更される例 Private Sub Worksheet_Change(ByVal Target As Range) Dim intColor As Integer If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub Select Case Target.Value Case Is <= 20 intColor = 3 Case 21 To 4
Excel 2003 のヘルプと使い方 - Excel - Microsoft Office Online
Excel のグラフ機能を使用して、グラフに近似曲線を追加したり、誤差範囲を使用したりなど、科学データを処理する方法をご紹介します。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Office TANAKA - Excelコンテンツ
サービス終了のお知らせ
Excelメモ(Hishidama's Excel Memo)
関数リファレンス - Excel - Microsoft Office Online