クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
文字列検索－Findメソッドの応用：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
ツイート 特定の文字列をセル範囲から検索するにはFindメソッドを使用します。 Findメソッドが検索結果として返すセルを対象に、さまざまなことを行うことが出来ます。 たとえば、検索結果のセルの背景色を変えたり、セル内の検索文字列のフォントを操作したり、隣合うセルを結合するなど、セルの操作で可能なことをFindメソッドの検索結果に対して行うことが出来ます。 ここではFind/FindNextメソッドを組あわせた応用例をご紹介します。 ■検索結果のセルに含まれる検索文字列のフォントを操作する 次のサンプルは、ダイアログボックスで指定した文字列を検索し、セル内にある検索文字列のみ赤・太字に設定します。 ●サンプル1● Sub PaintTargetCharacter() Dim Target As String Dim FoundCell As Range, SearchArea As Ran
Office TANAKA - VBA講座：ファイルの操作(ファイルの一覧を取得する)
任意のフォルダに存在するすべてのファイル名を取得するには、Dir関数にワイルドカードを指定します。次のコードは、C:\Sampleフォルダに存在するすべての「*.xlsx」をアクティブシートに書き出します。 Sub Sample1() Dim buf As String, cnt As Long Const Path As String = "C:\Sample\" buf = Dir(Path & "*.xlsx") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Loop End Sub Dir関数にワイルドカードを指定して実行すると、まずそのワイルドカードに一致するファイル名が返ります。次に、Dir関数の引数を省略して実行すると、前回に指定されたワイルドカードが指定されたものとしてファイルを探します。そ
データ型不一致エラーメッセージを変更する
連結テキストボックスで、データ型に合わない値を入力したとき、Accessくんは、 このフィールドに入力した値が正しくありません。 たとえば、数値型のフィールドに文字列を入力しました。 という無粋なエラーメッセージを出します。 もう少し分かりやすく具体的にメッセージを表示したいと思いますよね。 先日もこのような質問がとある掲示板でありました。私はついうっかり入力チェックは更新前処理というセオリーに従って回答してしまいましたが、このエラーは更新前処理より前に発生するので、そこではメッセージを変更することはできません 今回は、どこでこのデータ型不一致エラーを拾って、メッセージを変更すればいいのかについて考察してみます。 難易度:
列名が変化するクロス集計クエリと連結するフォーム
コントロールソースをVBAで動的に書きかえる方法 フォーム名 F_予約、ヘッダーにテキストボックスを配置して名前を 開始日 とする。レコードソースは空白にしておきます。また、ヘッダーの日付表示ラベルの名前は、lbl0, lbl1, ・・・lbl6、詳細セクションの値表示用のテキストボックスの名前は、 txt0, txt1, ・・・txt6 とします。 下記のクエリ「Q_予約」を作成 PARAMETERS Forms!F_予約!開始日 DateTime; TRANSFORM First(T_予約.名前) AS 名前の先頭 SELECT T_予約.予約時刻 FROM T_予約 WHERE T_予約.予約日 Between Forms!F_予約!開始日 And Forms!F_予約!開始日+6 GROUP BY T_予約.予約時刻 ORDER BY T_予約.予約時刻, Format([予約日]
Access TIPS 動的にコントロールを作成し配置、CreateControl
Option Compare Database Option Explicit Private Sub コマンド0_Click() Dim tForm As Form Dim tCtrl1 As Control Dim tCtrl2 As Control Set tForm = CreateForm() tForm.DefaultView = 0 tForm.Section(0).Height = 2000 tForm.RecordSelectors = False tForm.NavigationButtons = False tForm.DividingLines = False tForm.Caption = "テストフォーム" 'コマンドボタンの配置 Set tCtrl1 = CreateControl(tForm.Name, acCommandButton, , , "", 50
Excel ワークシートをリンクする際のデータ型問題を回避する方法
概要 Excel からのリンクテーブルを作成した際、各列に適用されるデータ型は Jet プロバイダによって自動で決定されます。 このため、データ型が混在する Excel ワークシートからリンクテーブルを作成すると、ユーザーの希望と反するデータ型になったり、「#Num!」のエラー表示になってしまうことがあります。 今回は、Excel からのリンクテーブルとデータ型の関係を整理し、意図通りのリンクテーブルを作成するコツについてまとめてみることにしましょう。 ※ Access 2000 での動作確認を基にしています。Access 97 以前でも同様と思われますが、未確認のため対象バージョンから外しています。 ※ 断定的に記述している箇所が有りますが、YU-TANG は特に Excel に詳しいわけではなく、動作確認からの推測に基づく仮定が含まれています。誤認・誤謬が有りましたら、ご指摘いただけれ
～ kiku tips ～ テーブルリンクあれこれ
Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs With tdf If (Len(.Connect) > 0) Then ' リンクテーブルだよ Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs With tdf If (.Attributes = DB_ATTACHEDTABLE) Then ' リンクテーブルだよ とか･･･ 判別は良いんだけど、リンクを新規に作る、パスを張り替える･･･ 対Excel へは･･･、対CSVファイルには･･･ 追加として、 SQL内で外部の accdb / Excel / CS
クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
クレジットカード現金化の高還元率の優良店を選ぶためには
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
Accessでお仕事 VBA(パソコン便利ツール集)
注：「ファイルを開くダイアログ」については、下記も参考になります。 No9073.ActiveXコントロール(Comdlg32.ocx)の追加 http://www.accessclub.jp/bbs/0020/beginers9073.html ファイルを開くダイアログボックスを表示する http://www.serpress.co.jp/winapi/no009.html ４．定義済みのクエリ(更新)を、VBA で実行します。 Option Compare Database Option Explicit Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer A
Microsoft Office 2010の「保護されたビュー」を使わない設定方法
1．「保護されたビュー」機能とその問題点 (1) 保護されたビュー Microsoft Office 2010には、「保護されたビュー」という機能があります。インターネット上から取得したファイルを開く際に、インターネット上から取得したファイルである旨の警告メッセージを出すとともに、編集不可のモードで開く、という機能です。 (2) 問題点 率直に言って、この機能は、お節介である上に、利口ではありません。 まず、お節介です。インターネット上からMicrosoft Office形式のファイルを取得したとき、そのファイルを編集する必要が生じる場面は、多いです。参照専用の配布であれば、pdfファイルにすればよいのであって、わざわざWordやExcelで配布しているからには、そのファイルに何らかを書き込んだり、チェックを入れたりなど、何らかの編集が予定されていることがあります。それにもかかわらず、保護
Access でファイルのインポートまたはエクスポートを実行すると、読み取り専用のエラーが発生する場合がある - Microsoft サポート
現象 Microsoft Access 2010、Microsoft Access 2000 または Microsoft Access 97 でファイルのインポート、またはファイルのエクスポートを実行した際に、以下のエラー メッセージが表示され、ファイルのインポート、またはエクスポートに失敗する場合があります。 このエラーは、Access に Jet データベースエンジンのセキュリティ上の問題に対応したサービス パックが適用された環境で、拡張子が無い、または、以下の拡張子以外のファイルをインポート、またはエクスポートしようとした際に発生します。 txt csv tab asc htm html 原因 Jet データベースエンジンは Text IISAM を使用することでテキスト ファイルを編集することが可能なため、システム テキストファイルの誤った編集によるセキュリティ上のリスクが発生する
Excel VBAの文字列操作関数がコンパイルエラー？ - misc.log
客先の環境でテストをしている同僚より、自社では動いたExcel VBAの命令がコンパイルエラーで動かないとの連絡が。問題の関数はTrim（文字列の空白削除）。VBAはVisual Basic 6.0に似た言語であることから、VB6.0のランタイムなど、何か必要なモノが入っていないという路線を考えましたが、考えられる原因には思い当たらず（特に入れていない環境でも動いている）。 調べ始め ということでWeb検索してみたら、こんな記録が。なんと、「String.Trim」と書けば動くとのこと。実際、動く。Trim命令などの文字列操作系命令は、VBAではStringsクラスに格納されていて、それをフルネームで書けばよいと。理屈がわからないのですが（なぜフルネームじゃなくても動く環境があるのか）、とりあえずは問題は押さえ込んで、あとで原因調べます。 【Excel/VBA】 TrimやLeft,Rig
Accessで使うショートカットキー - パソコンサポート Ｑ & A
Accessで使用するショートカットキー一覧です。 ・新しいデータベースを開く－「Ctrl」+「N」 ・既存のデータベースを開く－「Ctrl」+「O」 ・アクティブウィンドウを閉じる－「Ctrl」+「F4」 ・名前を付けて保存－「F12」 ・上書き保存－「Ctrl」+「S」 ・オブジェクトの編集・オブジェクト名の変更－「F2」 ・新しいレコードを追加－「Ctrl」+「+」 ・次のフィールドへ移動－「Tab」 ・前のフィールドへ移動－「Shift」+「Tab」 ・フィールドの先頭へ移動－「Ctrl」+「Home」 ・フィールドの末尾へ移動－「Ctrl」+「End」 ・プロパティシートの表示/非表示－「Alt」+「Enter」または「F4」 ・プロパティシートのタブの切り替え－「Ctrl」+「Tab」または「Ctrl」+「Shift」+「Tab」 ・ウィンドウを更新－「F5」 ・ナビゲーション
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Office TANAKA
Excelでお仕事！「VBA応用」メニュー
access 実践サンプル accessでクロス集計をサブフォーム表示する方法
access2010 Webデータベース その57 条件付き書式
サービス終了のお知らせ