月別アーカイブ: 2012年11月

2012年11月26日のつぶやき

ken_7777777 / ken
iPhoneやiPadでページを見ながらウェブデバッグが可能に!iOS 6から搭載された「Webインスペクタ」が超絶便利!ただし、Macが必要? | gori.me http://t.co/wJutEQpF at 11/26 17:10
ken_7777777 / ken
ブックマークレットをGoogle Chromeの拡張機能に変換する方法!! http://t.co/zPoTeHBE at 11/26 16:54
ken_7777777 / ken
Gmailで、サイズが大きく受信日時が古いメールを検索したい場合、
「size:5M older_than:1y」 と入力すると、5MB以上で
受信日時が1年以上前のメールが表示されるようになった。
 at 11/26 16:43
ken_7777777 / ken
Windows7で「権限不足」と言われた時は、常に管理者権限で実行する – UACに関連する設定 – Windows7の設定 http://t.co/GLsIHab2 at 11/26 11:56
ken_7777777 / ken
Gmail 検索の新しい演算子。メッセージサイズによる検索 (size:) 。特定の期間より
新しいメッセージ(newer_than:)、古いメッセージ (older_than:) 。など。Using advanced search http://t.co/QNuAgPyq
 at 11/26 10:08
↓ 参考になるブログがたくさんあります!ぜひどうぞ! ↓
にほんブログ村 その他日記ブログ 日々のできごとへ

2012年11月23日のつぶやき

ken_7777777 / ken
だろうねー。石破氏「緩和は成長戦略と一体」 安倍氏発言火消し  :日本経済新聞 http://t.co/vwmcSPFF at 11/23 11:35
ken_7777777 / ken
LINE、ツイッター、フェイスブック…利用ツールで消費意識に差  :日本経済新聞 http://t.co/k4Cw0Ai9 at 11/23 11:31
ken_7777777 / ken
『2012年11月22日のつぶやき』kenの手帳|http://t.co/oRF0DjCD at 11/23 02:41
↓ 参考になるブログがたくさんあります!ぜひどうぞ! ↓
にほんブログ村 その他日記ブログ 日々のできごとへ

2012年11月22日のつぶやき

ken_7777777 / ken
最近の阿部さんおかしなことばっかり言うな~。大丈夫か? 自民・安倍氏「日銀は謙虚に」 公明とは微妙なズレ  :日本経済新聞 http://t.co/R1MNScsT at 11/22 22:13
ken_7777777 / ken
seessaブログの記事中にtableタグを使用する – ブログカスタマイズのブログ。
table内の改行を全て無くす。または、改行を<br>で書いて、”改行を<br/>タグに変換しない”を選択して記事を保存する http://t.co/QEfjrNTS
 at 11/22 16:33
ken_7777777 / ken
『Excel VBA マクロ:パターンマッチ(正規表現)した文字列をメッセージと別の列に書き出す』kenの手帳|http://t.co/3FOPiVZF at 11/22 16:19
ken_7777777 / ken
Googleドライブのアクセス状況を調べる方法無いかな~? at 11/22 11:22
ken_7777777 / ken
右肩上がりの一本調子で成長することはない。踊り場、落ち込んだ時もあわてず、焦らず、諦めず、やるべきことをたんたんとやるべし at 11/22 10:13
ken_7777777 / ken
『2012年11月21日のつぶやき』kenの手帳|http://t.co/AcADMfrD at 11/22 02:41
↓ 参考になるブログがたくさんあります!ぜひどうぞ! ↓
にほんブログ村 その他日記ブログ 日々のできごとへ

Excel VBA マクロ:パターンマッチ(正規表現)した文字列をメッセージと別の列に書き出す

A列の様にURLが入っているなかから、ドメイン名だけをパターンマッチで取り出し、メッセージボックスで表示し、また、B列にも記入するマクロ

A B
1 http://kenlog.net/category/excel/
2 https://www.google.co.jp/

A B
1 http://kenlog.net/category/excel/ kenlog.net
2 https://www.google.co.jp/ www.google.co.jp

 

Sub RegExpSample()
    Dim RE, reMatch
    Dim strPattern As String
    Dim i As Long
    Dim msg As String
    Dim matchString As String

    Set RE = CreateObject("VBScript.RegExp")

    strPattern = "https?://([^/]+)/"     '検索パターン:ドメイン名の部分を()でグルーピング化

    With RE
        .Pattern = strPattern
        .IgnoreCase = True   '大文字と小文字を区別する
        .Global = False       '1回目のマッチで終了
        For i = 1 To ActiveSheet.UsedRange.End(xlDown).Row 'データが有る最終行まで
            Set reMatch = .Execute(Cells(i, 1))   'A列で検索実行
            If reMatch.Count > 0 Then             'マッチ
                matchString = reMatch(0).Submatches(0) '検索パターンのグルーピング化[()内]
                msg = msg & matchString & vbCrLf
                Cells(i, 2).Value = matchString   'B列に入れる
            End If
        Next i
    End With
    MsgBox msg
    Set reMatch = Nothing
    Set RE = Nothing
End Sub
↓ 参考になるブログがたくさんあります!ぜひどうぞ! ↓
にほんブログ村 その他日記ブログ 日々のできごとへ