最近の記事

🥂 銀座天一  玉川髙島屋店

月に一度3人揃ってのミーティング。 創立に関わる手続きもだいぶ落ち着き、 ホームページも整えた10月1日 銀座天一玉川高島屋店へ。 15席ほどあるカウンターの中ほど 目の前で揚げたてをいただける幸せ💞 お腹いっぱい。幸せいっぱい。 ごちそうさまでした🙏 ★★★★:Excellent  また行きたい!また食べたい♪ 店 名 銀座天一(玉川髙島屋店)  場 所 東京都世田谷区玉川3-17-1 玉川髙島屋SC南館6F 概算額 🌙カウンター ¥8,000 〜 コスパ 飲酒含め

    • 【ユーザ定義関数】デスクトップフォルダ

      ◆構文  MyDesktop()◆解説 セルに現在作業しているPCの"デスクトップフォルダ"を表示する ◆ソースコード Function MyDesktop() MyDesktop = Environ("UserProfile") & "\Desktop\"End Function ◆補足 "\Desktop\" とすれば"ダウンロード"フォルダ "\Documents\" とすれば"ドキュメント"フォルダ を取得にできます ◆登録方法 https://n

      • OHKK(大橋会館)

        PLANETco.スタッフです。 このところシェアオフィスを検討しています。 10月1日の惑星会議(PLANETco.ミーティング)で ─────────── 曜日や時間帯を選ばず、 より作業に集中できて 安心してリモートもできる個室があり、 安定的に少人数のミーティングもできる場所は? ─────────── そんなイメージで話し始めた時、 代表が産業新聞で情報を見つけたからと 沿線の新施設資料が共有されました。 「大橋会館って知ってる? 池尻大橋にある…」 「え

        • 【ユーザ定義関数】メアド結合

          ◆構文  MailAdd(範囲)◆解説 セルに入っているメールアドレスをOutlookの送信形式で結合する関数です。作成後はメール画面の To や Cc にコピペして下さい。 範囲 :データを探すセルの範囲 ◆ソースコード Function MailAdd(MainV As Object) Dim maxN As Integer Dim m As Integer Dim tmp maxN = MainV.Count tmp = ""

        🥂 銀座天一  玉川髙島屋店

          【備忘録】「エラーコード:1200」問題

          ◆問題点 Office365にサインインしたいが、「エラーコード:1200」が発生して認証されない ◆解決策 ■ 1. Microsoft 365アカウントの切断 1.Windowsの「設定」を開く。 2.「アカウント」を選択。 3.メニューより「職場または学校にアクセスする」を選択。 4.接続済みのアカウントにMicrosoftアカウントが表示される場合はアカウントを選択し[切断] をクリック。 ※Microsoftアカウントが表示されない場合は対応不要。 ※「Azu

          【備忘録】「エラーコード:1200」問題

          名店で創立記念🥂 LANBRoA (ランブロア)

          2023.9.1 私たち3人の 株式会社PLANETco. が誕生🌈✨ 街歩きの途中偶然発見した素敵なお店で創立祝いをしました🥂✨ カウンター6席と、6人がけテーブル席のこぢんまりした店内。 入口に近いカウンター席に椅子を追加していただき3人並んで シェアしたお料理を、iPhoneスナップご紹介します♪ 初来店でしたが、カジュアルな接客がとても親しみやすく アラカルトのみのお料理を、心地よい空間で堪能❣ 実は、入口には赤いステッカー🟥🟥🟥🟥🟥 住宅街の一角ですが、な

          名店で創立記念🥂 LANBRoA (ランブロア)

          【ユーザ定義関数】今月末

          ◆構文 DATE(YEAR(NOW()),MONTH(NOW())+1,1)◆解説 来月1日から1を引く  YEAR(NOW())        :今年  MONTH(NOW()) +1:来月 ◆補足 1を引かないと 来月初 となる。

          【ユーザ定義関数】今月末

          【VBA】ワークシート印刷範囲の高速PDF化

          ◆解説 面倒な ・プリンターの設定変更 や ・ファイル名を都度指定 が不要になるPDF化方法です。 ◆ソースコード Sub printPDF() Dim fileSaveName As String fileSaveName = "C:\tmp.pdf" '変換するPDFファイル名 ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=fileSav

          【VBA】ワークシート印刷範囲の高速PDF化

          【ユーザ定義関数】Replace 代用品

          ◆構文  cReplace (文字列 , 検索文字列 , 置換文字列)◆解説 直感的ではない EXCEL の Replace関数を他のプログラミング言語風な書き方で処理します。  文字列  :もととなる文字列を指定  検索文字列:検索する文字列を指定  置換文字列:置換する文字列を指定 ◆ソースコード Function cReplace(文字列 , 検索文字列 , 置換文字列) Dim tmp tmp = Replace(文字列 , 検索文字列 , 置換文

          【ユーザ定義関数】Replace 代用品

          【経営の処方箋】例外を認める3つのモノサシ

          ◆問題点 規定(長期的遵守要件)や通達(中・短期的遵守要件)に対して、例外をドコまで認める?が日々の運営で問題になることが多々ある ◆処方箋 例外を認める場合の3つのモノサシ 公共性 一人・一部門 ではなく、部署・会社全体 の利益や安全  例)感染症まん延防止等重点措置 緊急性 想定外、準備する時間が無かった  例) 自社のミス、 工事発注の緊急変更 非代替性 他に適切な手段が無い  例) 技能保持・不足 ◆参考 「自衛隊の災害派遣」の要件       【

          【経営の処方箋】例外を認める3つのモノサシ

          【ユーザ定義関数】Vlookup拡張

          ◆構文  cVlookup(検索値, 範囲, 列番号)◆解説 VLOOKUP関数を拡張したモノで、検索方法"完全一致=FALSE"で探せない値に対して0を返します。  検索値:検索する値  範囲 :データを探すセルの範囲  列番号:指定した範囲の左から何番目の列から転記するのかを数値で指定 ◆ソースコード Function cVlookup(検索値, 範囲, 列番号) Dim tmp tmp = Application.VLookup(検索値, 範囲,

          【ユーザ定義関数】Vlookup拡張

          【ユーザ定義関数】有効数字2桁

          ◆構文  有効数字( number )◆解説  引数 number には、有効数字2桁に変換する数字を指定します。 ◆ソースコード Function 有効2桁(myVal)    Dim tmp    Dim n As Long    If IsError(myVal) = True Then        tmp = 0    Else        If myVal = 0 Then            tmp = 0        Else         

          【ユーザ定義関数】有効数字2桁

          【ユーザ定義関数】ソースコードを登録する

          ① EXCELを起動後、Alt + F11 キーを押し、"Visual Basic Editor"を表示する ② "標準モジュール"を追加する  ③ "ソースコード"を貼り付ける  ☆ソースコード例☆ Function ユーザー定義関数(値1, 値2)    ユーザー定義関数 = 値1 + 値2End Function ④ アクティブなBookに保存する

          【ユーザ定義関数】ソースコードを登録する