先月 2015 年 11 月の 1 ヶ月間の Google アナリティクスの結果です。
- ユーザー > サマリー(左に先月、右に先々月と比較表示)
- 行動 > サイトコンテンツ > すべてのページ
- 集客 > ソーシャル > 参照元ソーシャル ネットワーク
- 集客 > 検索エンジン最適化 > 検索クエリ
以上の 4 種類の Google Analytics 結果です。
先月 2015 年 11 月の 1 ヶ月間の Google アナリティクスの結果です。
以上の 4 種類の Google Analytics 結果です。
実行時エラー ‘1004’: Range クラスの Select メソッドが失敗しました。
Option Explicit Sub Test() Worksheets("Sheet1").Range("A1").Select End Sub
Option Explicit Sub Test() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range("A1").Select End Sub
2016年8月18日11時12分追記: ソリューション全体をアップロードしました。
Identity をカスタマイズした独自の認証を持ったサンプルのアプリを作ってみました。Identity の拡張方法の習得を目標に、それ以外はシンプルに、あまりこだわらないようしております。
Visual Studio 2015 でプロジェクトを作成するときに認証処理を追加するように選択することができます。そうしますと、Identity を使用した認証ロジックと、ユーザーやロールを管理するデータベーステーブルが予め作られます。
このファイルやコードが大変参考になります。
そこで、ファイルの構成はプロジェクト生成時に自動作成される認証のあり方に近づけます。
コードの振る舞いや、内容の理解、実際に書くコードの内容は、参考ウェブページをお手本にいたします。
Option Explicit Sub test() Dim s As String s = "2015/11/23 16:43" ' Date 型への変換判定 Debug.Print IsDate(s) ' Date 型への変換 Dim d As Date d = CDate(s) ' Date から年月日時分秒の取り出し Debug.Print Year(d) Debug.Print Month(d) Debug.Print day(d) Debug.Print Hour(d) Debug.Print Minute(d) Debug.Print Second(d) End Sub
印刷代 普通紙 × 53枚 : 4134円
はがき代 × 53枚 : 2756円
小計 6890円
※「まとめ割」は、すべてのご注文の印刷代総計からの割引となります
※プレミアムテンプレートは「まとめ割」の対象外になります
配送料(全国一律) : 650円
まとめ割(30%OFF)* × 53枚 : -1219円
合計金額 6321円
重複なしのリストは、VBA の辞書オブジェクトの Key を使用することで実現可能ですの!
今回はそのコードを書くときに使えるテクニックですわ♪
応用すれば、要素が 1 種類のみかどうかを判定するチェックにも使ますわね。
objDictionary.Add Key:=keyValue, item:=itemValue
という形だと、Key が重複した場合に実行時エラーとなる。objDictionary.Exists(keyValue)
で重複チェックが必要。objDictionary(keyValue) = itemValue
と書けば、既存のキーであっても上書きするのでエラーとならない。追記。改善版を投稿しました!抽象度を上げ、よりシンプルになりましたの♪
Option Explicit ' オブジェクトがブーリアンかどうかを確かめる。 Sub Test() If IsBoolean("False") Then Debug.Print "Boolean!" Else Debug.Print "Not Boolean><" End If End Sub ''' <summary> ''' 引数がブーリアンに変換可能か判定します。 ''' </summary> ''' <param name="vntTarget">判定対象オブジェクト</param> ''' <returns>ブーリアンに変換可能な場合は True、そうでない場合は False</returns> Private Function IsBoolean(ByVal vntTarget As Variant) On Error GoTo ErrorHandler Dim blnCheck As Boolean blnCheck = CBool(vntTarget) IsBoolean = True Exit Function ErrorHandler: IsBoolean = False End Function
Sub Test() Dim strNow As String strNow = Format(Now, "yyyymmddhhnnss") Debug.Print strNow End Sub
の派生版ですの!
引数に Names オブジェクトの一部を渡すと、その文字列を含む Names オブジェクトをすべて削除するプロシージャを書きましたのでノートいたします♪