ポイント
- サビた部分に木工用ボンドを塗って乾いてからはがすとサビを取り除く事ができる。
- 木工用ボンドはケチらず厚めに塗る。
- 木工用ボンドは完全に乾いて透明になってから取り除く。
実例
- お風呂においたヘアピンが錆びてしまい、そのサビが浴室の台に移ってしまった。
- 木工用ボンドでサビを落とそうとした。すべてを落としきることはできなかったが、大部分を取り除くことができた。
- サビ以外の汚れも取れた。
投稿者: oki2a24
カテゴリー
2015年11月のアクセス解析
先月 2015 年 11 月の 1 ヶ月間の Google アナリティクスの結果です。
- ユーザー > サマリー（左に先月、右に先々月と比較表示）
- 行動 > サイトコンテンツ > すべてのページ
- 集客 > ソーシャル > 参照元ソーシャル ネットワーク
- 集客 > 検索エンジン最適化 > 検索クエリ
以上の 4 種類の Google Analytics 結果です。
ユーザー > サマリー（左に先月、右に先々月と比較表示）
エラー再現手順
- Sheet2 を表示
- 標準モジュールで VBA を実行
- Worksheets(“Sheet1”).Range(“A1”).Select で次のエラー発生
実行時エラー ‘1004’: Range クラスの Select メソッドが失敗しました。
エラー再現エクセル・VBA コード
- エクセルにシートを2つ用意する。「Sheet1」「Sheet2」
- VBA では、標準モジュールを挿入してそこにコードを書く。
Option Explicit Sub Test() Worksheets("Sheet1").Range("A1").Select End Sub
修正 VBA コード
- Worksheets.Activate メソッドを Select の前に実行すればよい。
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 を使用した認証ロジックと、ユーザーやロールを管理するデータベーステーブルが予め作られます。
このファイルやコードが大変参考になります。
そこで、ファイルの構成はプロジェクト生成時に自動作成される認証のあり方に近づけます。
コードの振る舞いや、内容の理解、実際に書くコードの内容は、参考ウェブページをお手本にいたします。
ポイント
- 年月日を指定せずに時分秒のみを文字列指定した場合に Date へ変換すると、年: 1899、月: 12、日: 30、となる。
- day 関数のみ、なぜか小文字からはじまる。
VBA コード
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
年賀状作成の使用アプリ
アプリ特徴
- 画像のアップロード可能
- テキストの挿入、用意された画像素材の挿入可能
- 画像、テキスト、素材オブジェクトは拡大・縮小、回転が可能
- テキストは、フォント、色、配置、組（縦書き横書き）も変更可能
- オブジェクトの移動はマウスのみでキーボードは使えない。
- オブジェクトを左揃えにするような操作はできない。
- ウェブ上に編集中のデザインを保存可能。保存は毎回新規に作られる。上書き保存ではない。
- 保存したデザインから、注文、編集、jpg 画像としてダウンロード、削除が可能
- ダウンロードした画像は、660 KB、1181 x 1748 px、DPI 72 ピクセル / インチ
追記。注文してみての感想
- 宛名印刷なしと、宛名印刷ありを同時に注文することができなくて不便
- 宛名を選ぶときに、一括選択できず、ひとつひとつ選択しなければならないのが不便
- 宛名面、デザイン面のプレビューを宛名ごとに確認できるのがとてもよい
- 価格。119.3円/枚。去年は117円/枚だったので、あまり変わらない。
価格
- 注文方法: 自宅配送
- 宛名印刷: あり
- 枚数：53枚
印刷代 普通紙 × 53枚 : 4134円
はがき代 × 53枚 : 2756円
小計 6890円
※「まとめ割」は、すべてのご注文の印刷代総計からの割引となります
※プレミアムテンプレートは「まとめ割」の対象外になります
配送料（全国一律） : 650円
まとめ割（30%OFF）* × 53枚 : -1219円
合計金額 6321円
重複なしのリストは、VBA の辞書オブジェクトの Key を使用することで実現可能ですの！
今回はそのコードを書くときに使えるテクニックですわ♪
応用すれば、要素が 1 種類のみかどうかを判定するチェックにも使ますわね。
ポイント
objDictionary.Add Key:=keyValue, item:=itemValueという形だと、Key が重複した場合に実行時エラーとなる。
「実行時エラー ‘457’ このキーは既にこのコレクションの要素に割り当てられています。」- このエラーを避けるには、
objDictionary.Exists(keyValue)で重複チェックが必要。 objDictionary(keyValue) = itemValueと書けば、既存のキーであっても上書きするのでエラーとならない。
追記。改善版を投稿しました！抽象度を上げ、よりシンプルになりましたの♪
ポイント
- 標準モジュールでは、Const は定義できるが、Const で配列を定義できない。
- クラスモジュールでは、Const を定義できないが、コンストラクタで値をセットしてゲッターから取り出すようにすることで Const のような配列を定義できる。
- したがって、様々なパターンの定数を網羅するには、標準モジュールで 1 つ、クラスモジュールで 1 つの、合計 2 つの定数用ファイルを用意する必要がある。
- Excel 2013 で試した。
- ファイル名に「Const」が使用できないことを考慮し、「ConstM」「CstM」や、「ConstC」「CstC」といったファイル名を付けると良いのではないかと思う。
経緯
ポイント
- VBA には対象オブジェクトがブーリアンに変換可能か確かめられるプロシージャを見つけられなかった。。。
- 引数をブーリアン型へ変換する CBol プロシージャを使い、確かめる方法を採った。
- 変換できれば 「True」を返す。
- 変換できなければエラーを発生させるので、それをキャッチして変換できなかった結果「False」を返す。
- 例外を判定に使うのは、例外の本来の用途の観点から、本当は採用したくなかった。。。
VBA コード
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
ポイント・気がついたこと
- yyyy → 4桁の年
- mm → 2桁の月
- dd → 2桁の日にち
- hh → 2桁の時
- nn → 2桁の分
- ss → 2桁の秒
- Excel 2013 で試したが、yyyyMMddHHmmss、yyyymmddhhmmss、の結果が同じだった。最初の MM は月で、次の mm は時間。大文字小文字が変わっても、月と時間が正しく表示された。なぜ？
VBA コード
Sub Test()
Dim strNow As String
strNow = Format(Now, "yyyymmddhhnnss")
Debug.Print strNow
End Sub