サービス終了のお知らせ NAVERまとめは2020年9月30日をもちましてサービス終了いたしました。 約11年間、NAVERまとめをご利用・ご愛顧いただき誠にありがとうございました。
Private Sub UserForm_Initialize() Dim i As Long With Worksheets("顧客マスタ") i = ActiveCell.Row Me.txtコード.Text = .Cells(i, 1) Me.txt漢字名称.Text = .Cells(i, 2) Me.txtカナ名称.Text = .Cells(i, 3) End With End Sub Private Sub btnOk_Click() Dim lastRow As Long With Worksheets("顧客マスタ") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1) = Me.txtコード.Text .Cells(lastRow, 2) = Me.txt漢字名称.Text .Cel
クレジットカード現金化の高還元率の優良店を選ぶためには クレジットカード現金化の優良店を選ぶポイントは、換金率やスピードもありますが、そのほかにも見ておきたいポイントもあります。 お金に厳しい人が利用しますので、手数料やキャンペーンの有無、価格交渉ができる業者ということは見ておきたいところです。 それぞれどのような内容なのでしょうか。 手数料が無料であるクレジットカード現金化の業者には、手数料をすべて無料でしてくれるところがあります。 業者によっては、単純に手数料という名目で業者側の利益がとられていたり、振込手数料、事務手数料という名目で少額ながらお金がかかることがあります。 せっかく高い換金率が記載されていても、手数料の分が差し引かれることで、損をしたような気持ちになったり後から気づくこともあります。 これらの手数料は最初から公式ホームページに記載がある場合は了承したうえで申し込みもでき
先日メールで質問されたネタです。「"C:\Sample\Sub\Book1.xls"というフルパスを"C:\Sample\Sub\"と"Book1.xls"に分割するにはどうしたらいいのですか?」と。・・・当サイトではTipsなどで普通にやってますけど、あらためて「よくわからない」と言われたので独立したコンテンツとして解説しましょう。 ここでは次のようなファイルを対象にします。 基本的な考え方 まずは古典的なやり方から。この方法は手間がかかりますけど、応用すればいろいろなケースに応用できます。 パス+ファイル名という文字列を「パス」と「ファイル名」に分けるには、どこで分割すればいいかを考えます。パスの区切りは「\」記号で表されますので、(1)文字列を後ろから1文字ずつ見ていって最初に存在する「\」の位置を調べなければなりません。次に(2)その位置から左側(パス)と右側(ファイル名)に分割し
◆パスを取得する 特別なフォルダや開いているブックのパスを取得できます。 Sub test1() Dim Current_path As String Dim DefaultFile_path As String Dim Excel_path As String Dim Startup_path As String Dim Templates_path As String Dim Library_path As String Dim UserLibrary_path As String Dim Workbook_path As String Dim Thisbook_path As String '現在のパス たとえば直前で メニューの 開くでファイルを開いたパス Current_path = CurDir 'デフォルトパス 'メニューの ツール -> オプション -> 全般タブで設定して
最大公約数 ― 2つの数値の最大公約数を返す関数 the greatest common divisor Sub CallTest() Debug.Print 最大公約数(24, 96) End Sub Function 最大公約数(ByVal M As Long, ByVal N As Long) As Long If M <= 0 Or N <= 0 Then Exit Function 'M>=Nに調整 If M < N Then Swap M, N Dim Q As Long, R As Long Do Q = M \ N R = M Mod N If R = 0 Then 最大公約数 = N Exit Function End If M = N N = R Loop End Function Private Sub Swap(A As Long, B As Long) Dim T
Like演算子は文字列の検索では手軽です。InStrよりも柔軟性があるので、正規表現よりも勝手がよくこの手の検索では重宝します。 しかしながらちょっと気を付ける点もあります。逆に気を付けないと全く予期しない結果が返ってくるので要注意です。 実際に検索すると気を付けることが分かる どんな点を注意するのかは、実際に例を見てもらった方が早いです。 下記の表は対象となる都道府県をLike演算子で判別し、Trueなら「○」を入れるようにしています。 Sub 対象となる都道府県の抽出1() Dim i As Integer For i = 2 To 6 ‘————————– ‘東京以外を対称にする ‘————————– If Cells(i, 1).Value Like “[!東京]*” Then Cells(i, 2).Value = “○” ‘対称でなければ空白 Else Cells(i, 2).
エクセルを使う人なら当たり前のショートカットですが、新入社員やよく使うけど意外と知らなかった!っという声を仕事をしていてびっくりされたりすることもあるのでよく使うものをまとめてみた エクセル便利ショートカットまとめ ctr + C コピー ctr + V コピーした内容を貼り付け ctr + X 切り取ってコピー ctr + 矢印:入力があるセルにぶつかるまで移動する ctr + A シート全選択 ctr + Z 作業した内容を一つ前に戻る ctr + スペース:選択中のセルの1列を全選択 Shift + スペース選択中のセルの1行を全選択 ctr + D 複数行を選択している場合、一番上のセルの内容を選択している下の行のセルに全てにコピーする ctr + R 複数列選択している場合、一番左のセルの内容を選択している右の列に全てにコピーする ctr + Shift + = 押した上にある行
サービス終了のお知らせ NAVERまとめは2020年9月30日をもちましてサービス終了いたしました。 約11年間、NAVERまとめをご利用・ご愛顧いただき誠にありがとうございました。
AccessからCreateObject("Excel.Application")でExcelのオブジェクトを作り、データをセットする、転記する。そんな感じの処理のサンプルです。 ※カッコつけて、連携と書いてますが、どちらかと言えば一方通行のデータの流し込み、差し込み印刷 的なイメージが強かったり。 ※※Access → Excelの開発の実例は [Access の 名簿データをExcelへ出力]を見て、三流君の右往左往ぶりを笑って見てください 百聞は一見に 百聞は一見に・・・こんなことができます Access から Excelファイルを開く マクロを作成 Access 2003 から 事前に作成したExcelファイルのテンプレートを開く そんな マクロ VBAを作成してみます。 静止画と解説、ソースは AccessからExcelを起動してファイルを開く、そんなマクロ(VBA) 参照設定し
いまだにOffice2000環境です。 最近Excel2007以降の形式の*.xlsxファイルやWord2007以降の*.docxファイルが添付されたメールをいただくようになりました。 ちまたでは Word/Excel/PowerPoint 用 Microsoft Office 互換機能パック http://www.microsoft.com/ja-jp/download/details.aspx?id=3 を導入することで開いたり編集したりすることができると聞きました。現にそうしているExcel2003ユーザーが知り合いでいます。 ところが私もそれをインストールして、OSごと再起動してから*.xlsxファイルを開こうとすると、 「コンバータでファイルが保存されませんでした」 と表示されて動作が止まってしまいます。 これは私のOfficeが古すぎるからなのでしょうか。 ~テンプレ~ そのメ
Excel2000を使用しています。拡張子が.xlsxのファイルがメールで送られてきたので、 Word/Excel/PowerPoint 用 Microsoft Office 互換機能パック http://www.microsoft.com/downloads/ja-jp/details … をインストールし、再起動して.xlsxファイルを開こうとしましたが、 「コンバータでファイルが保存されませんでした。」 というエラーメッセージが出て、開けません。 どうすれば開けるようになるのでしょうか? お手数ですが、教えてください。よろしくお願いします。 ・Excelのバージョン(バージョン情報によると) Microsoft (R) Excel 2000 (9.0.3821 SR-1) ・OS Windows 2000
チャレンジしてみたけど、エラーが…。どこをどうしていいのかも全然わからない! という方へ。どの言語でも共通項はあると思うのですが、このブログで扱っている手前、ExcelVBAを例にしてご紹介させて頂きます。 全角が混ざっていないか 日本語の文字列、若しくはコメントアウト以外は基本的に半角英数でなければいけない場合が多いです。シングルクォーテーション「’」、ダブルクォーテーション「”」、括弧「()」などが、どこからかコピーしてきたときに全角になったりしていませんか? 特に全角スペースあたりは曲者なので、Ctrl+Fで検索してみるのも手です。 コピペミス 正常にコピーできても、インデントが適正にペースト出来ない場合が多々あります。 また、全部コピーしたつもりが1行目や最終行、最後の1文字が抜けてしまっていたり、そういうことはありませんか? コピー元とよく見比べて、チェックしてみてください。 変
コードってその人の癖とかあると思うんですが、私が個人的によく使っているモノ、更によく使うんだけどアレどうやって書くんだっけ…!みたいなものもまとめてみました。 はじめに 修正をご提案いただき、コードを一部修正しました。コマ太郎さんありがとうございました!(2020/5/21) セル・シート・ブック操作 クリア Range("A1").Clear '値・書式設定・罫線などすべてクリア Range("A1").ClearContents '値だけクリア 色 Range("A1").Font.ColorIndex = xlAutomatic '文字色を自動に Range("A1").Font.ColorIndex = 2 '文字色変更(インデックス表記) Range("A1").Font.Color = RGB(0, 0, 0) '文字色変更(RGB表記) Range("A1").Interio
MS Office カテゴリ MS Office (100) 関連タグ Access (35) Excel (83) PowerPoint (8) Python (0) YouTube (6) 入門 (34) Web カテゴリ Web (85) 関連タグ facebook (4) jQuery (10) linux (3) Photoshop (18) PHP (24) tips (21) twitter (10) WordPress (76) YouTube (6) アプリ (28) イラスト (42) デザイン (15) ブログ (39) 入門 (34) 分析 (20) Adobe カテゴリ Adobe (28) 関連タグ facebook (4) Fresco (2) Illustrator (8) JavaScript (7) Photoshop (18) Premiere (3)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く