フラタニティ さん プロフィール

  •  
フラタニティさん: フラタニティ
ハンドル名フラタニティ さん
ブログタイトルフラタニティ
ブログURLhttp://www.fraternity5.com/
サイト紹介文業務改善向けサンプルソース公開、金融や転職、格安スマホなどについて情報纏めています
参加カテゴリー
更新頻度(1年)情報提供37回 / 27日(平均9.6回/週) - 参加 2018/05/08 21:11

フラタニティ さんのブログ記事

  • 超絶マイナーなネタ仮想通貨(コイン)、UNKOin(うんコイン)とは
  • 完全にネタとしか思えない仮想通貨について記載してみます。今回ご紹介するのは。bacoor株式会社が発行している着せ替えコイン「UNKOin」です。 UNKOinとはUNKOinの読み方は「うんコイン」。これ、排泄物のほうではなく、「運」の方だそうで、漢字で書くなら「運コイン」となります。……とはいえ、以下の画像は公式サイトのものですが、デザインが完全に排泄物ですがwww すさまじいネーミングセンスコインの名称もそうですが、そ [続きを読む]
  • 格安SIMと言っているのは…。
  • はじめにSIMフリースマホと言うのは、どのメーカーのSIMカードでも適応する端末のことを意味し、元来は第三者所有のカードで利用されることがないようにロックされていたのですが、そのロック機能を無効にした端末です。料金が低めのSIMフリースマホが大人気です。MVNOが販売している格安SIMと同時に利用することで、スマホ料金を抑制できるからだ。そこでSIMフリー格安スマホを比較し、ランキング形式にてご案内させて頂きます。M [続きを読む]
  • ドラッグアンドドロップでCSVファイル書き出し
  • CSVファイルをドラッグアンドドロップし、Excelに書き込む。最初に実行されるSubは「Sub CSV()」である。 注意事項この章では、以下のSubを共有している。・getdo(記事「テキスト一括読み込み・印刷レイアウト設定」)・現在シート列行幅オートフィット(記事「現在シート列行幅オートフィット」)・全シートスクロール初期化(記事「全シートスクロール初期化」)これらのSubは、この章には記載していないが、実行時に必要なSub [続きを読む]
  • コンペアリストを基に、ソース修正箇所にマークを付ける
  • コンペアリストを基に、ソース修正箇所にマークを付ける。そのため、同一形式のコンペアリストでなくては正常稼働しないため、必要に応じて修正する必要がある。最初に実行されるSubは「Sub ソース追う()」である。 この章では、以下のSubを共有している。・getdo(記事「テキスト一括読み込み・印刷レイアウト設定」)・現在シート列行幅オートフィット(記事「現在シート列行幅オートフィット」)これらのSubは、この章には記載 [続きを読む]
  • ブックをシートごとに分割
  • ブックをシートごとに分割する(1ブック1シートになるように分割する)。新ブック名はシート
    名となる。 標準モジュールに、以下の通り記載する。 Sub ブックをシートごとに分割()Dim LINK As Str
    ingLINK = ActiveWorkbook.PATH & ""Dim BK As WorkbookSet BK = ActiveWorkbookDim ST As WorksheetFor Each ST In BK.Sheets
    'ブックの追加 Application.EnableEvents = False Application.ScreenUpdating = False Applic [続きを読む]
  • 非表示の名前定義を表示させる
  • 非表示の名前定義を表示させる。標準モジュールに、以下の通り記載する。Dim WNAME As ObjectDim WCNT
    As LongFor Each WNAME In Names If WNAME.Visible = False Then WNAME.Visible = True WCNT = WCNT + 1 End IfNextIf
    WCNT 0 Then MsgBox WCNT & "個の非表示の名前定義が見つかりました。", vbInformationElse MsgBox
    "非表示の名前定義はありません。", vbExclamationEnd IfEnd Sub Copyright &c [続きを読む]
  • 数式及び関数が使われているセルを検索
  • 数式及び関数が使われているセルを検索し、アクティブにする。標準モジュールに、以下の通り記載する。Sub 数式及び関数が使われているセルを検索()On Error GoTo errSelection.SpecialCells(xlCellTypeFormulas, 23).SelectExit Suberr:MsgBox "数式・関数が使われているセルは現在のシートに存在しません"End Sub Copyright © 2018 フラタニティ All Rights Reserved. [続きを読む]