_planetco_

2023年9月創立の株式会社PLANETco. （ぷらねっとコ）

経営の処方箋

_planetco_

3本
PLANETgo.

_planetco_

3本
VBAとGAS

_planetco_

1本
備忘録

_planetco_

1本
ﾕｰｻﾞ定義関数

_planetco_

9本

【経営の処方箋】マンガで育った

◆問題点これまでの業績が認められて「昇進（管理職）した！」までは良かったが、武官のワタシは部下（年上・年下）の気持ちが理解できない。 ◆処方箋部下が愛したマンガを読め！ ①正義感（←社会学的動機の源泉：社会性、組織への忠誠心） ②恋愛観、死生観（←生物学的動機の源泉：種の保存・維持）など、ヒトが生きるための二大動機は、思春期にマンガで教わったハズ。それを知ることからはじめよう。 ◆参考

図画工作＃3：JPN TAXI寄せモニター

ベース車両が同じJPN TAXIの　①広大な後席空間　②サイネージモニターがＰＣ用に使えるのでは… が、　シエンタでワーケーション！のキッカケだったので、ヘッドレスト裏モニターを構築してみた ◆完成◆ ◆材料表と費用◆ ◆工夫した点◆ ◆感想◆ ！ホルダー縦幅さ65mm～260mm ！クランプ推奨最大重量約３キロ（=2x1.5) まで設置可能なので、・横使い 12.9インチiPad Pro(横280.6 × 縦214.9 mm 684 g) ・縦使

_planetco_

2週間前

3
【ﾕｰｻﾞ定義関数】区切った文字は何？

◆構文　uSplit(文字列, 区切文字, 番号)◆解説ある区切り文字で区切られた文字列を、その区切り文字で区切り、区切られた各文字列を、一次元配列型に格納し、その番号となる文字列を返します。 ◆ソースコード Function uSplit(文字列 As String, 区切文字 As String, 番号 As Integer) Dim myStr As String, myData myData = Split(文字列, 区切文字) Spli

_planetco_

1か月前

1
【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？

◆構文　uNumInStr(文字列, 対象記号)◆解説ある文字列の中から対象記号がいくつ入っているかを調べる。 ◆ソースコード Function uNumInStr(文字列 As String, 対象記号 As String) Dim i As Long Dim cnt As Long cnt = 0 For i = 1 To Len(文字列) If Mid(文字列, i, 1) = 対象記号 Then

_planetco_

1か月前

1

【経営の処方箋】マンガで育った

_planetco_

1日前

図画工作＃3：JPN TAXI寄せモニター

3

_planetco_

2週間前
【ﾕｰｻﾞ定義関数】区切った文字は何？

1

_planetco_

1か月前
【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？

1

_planetco_

1か月前

マガジン

経営の処方箋

3本
PLANETgo.

3本
VBAとGAS

1本
備忘録

1本
ﾕｰｻﾞ定義関数

9本

記事

図画工作＃2：作業デスク

"戦隊モノの移動基地"に憧れて、シエンタ移動基地（事務所）化に着手してみた ◆完成◆ ◆設計図◆ ◆材料表と費用◆ ◆工夫した点◆ ◆感想◆ ・膝上テーブだと圧血などで長時間は困難だし、・車内モード、野外モードなど展開が豊富にできそうなどなどで、Excellent …としたいが、・車内での取り回しに改善点が多いので、自己評価は ★★☆☆：Normal 作品名　　後席用作業デスク作業時間　１時間程度　　　　　　（構想、作図は数十時間…）材料費　　１．２万

_planetco_

2か月前

4
図画工作＃2：作業デスク

4

_planetco_

2か月前
【経営の処方箋】２つの問題

◆問題点日々の運営で色んな種類の”問題”が発生する ◆処方箋今直面している問題を可能な限り細かく分解して、適した処方箋を用いる決定問題既存や生成したデータから答えを導き出す　処方箋）専門家に依頼して解決する証明問題仮説→結論→根拠→反論を回して答えに近づける　処方箋）学習しながら解決する（ときには解決しない） ◆参考書籍「いかにして問題をとくか」の４ステップ STEP1.問題を理解する　◇未知なモノ、◇与えられたモノ　など状況を整理する

_planetco_

3か月前

2
【経営の処方箋】２つの問題

2

_planetco_

3か月前
図画工作＃1：ゴルフバッグ柵

"メルセデス純正ラゲッジルーム用ゴルフバッグラック"から着想を得て、シエンタ用を自作してみた ◆完成◆ ◆設計図◆ ◆材料表と費用◆ ◆手順◆ ◆感想◆ ・走行視界を遮らない絶妙な傾斜配置にできたし、・保護用フロアマットの摩擦抵抗等が功を奏してガタつかない走行、などなどで、自己評価は ★★★★：Excellent　作品名　　ラゲッジルーム用ゴルフバッグ柵作業時間　１時間程度　　　　　　（構想、作図は数時間…）材料費　　１万円程度　工賃　　　ゼロ（ＤＩ

_planetco_

4か月前

3
図画工作＃1：ゴルフバッグ柵

3

_planetco_

4か月前
🥂　銀座天一　玉川髙島屋店

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

_planetco_

5か月前

1
🥂　銀座天一　玉川髙島屋店

1

_planetco_

5か月前
【ﾕｰｻﾞ定義関数】デスクトップフォルダ

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

_planetco_

5か月前

1
【ﾕｰｻﾞ定義関数】デスクトップフォルダ

1

_planetco_

5か月前
ＯＨＫＫ（大橋会館）

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

_planetco_

6か月前

4
ＯＨＫＫ（大橋会館）

4

_planetco_

6か月前
【ﾕｰｻﾞ定義関数】メアド結合

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

_planetco_

7か月前
【ﾕｰｻﾞ定義関数】メアド結合

_planetco_

7か月前
【備忘録】「エラーコード：1200」問題

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

_planetco_

7か月前

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

4

_planetco_

7か月前
名店で創立記念🥂　LANBRoA （ランブロア）

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

_planetco_

7か月前

3
名店で創立記念🥂　LANBRoA （ランブロア）

3

_planetco_

7か月前
【ﾕｰｻﾞ定義関数】今月末

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

_planetco_

8か月前
【ﾕｰｻﾞ定義関数】今月末

_planetco_

8か月前
【VBA】ﾜｰｸｼｰﾄ印刷範囲の高速PDF化

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

_planetco_

8か月前
【VBA】ﾜｰｸｼｰﾄ印刷範囲の高速PDF化

_planetco_

8か月前
【ﾕｰｻﾞ定義関数】Replace 代用品

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

_planetco_

9か月前
【ﾕｰｻﾞ定義関数】Replace 代用品

_planetco_

9か月前

マガジン

経営の処方箋

PLANETgo.

VBAとGAS

備忘録

ﾕｰｻﾞ定義関数

最近の記事

【経営の処方箋】マンガで育った

図画工作＃3：JPN TAXI寄せモニター

【ﾕｰｻﾞ定義関数】区切った文字は何？

【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？

【経営の処方箋】マンガで育った

図画工作＃3：JPN TAXI寄せモニター

【ﾕｰｻﾞ定義関数】区切った文字は何？

【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？

図画工作＃2：作業デスク

図画工作＃2：作業デスク

【経営の処方箋】２つの問題

【経営の処方箋】２つの問題

図画工作＃1：ゴルフバッグ柵

図画工作＃1：ゴルフバッグ柵

🥂 銀座天一 玉川髙島屋店

🥂 銀座天一 玉川髙島屋店

【ﾕｰｻﾞ定義関数】デスクトップフォルダ

【ﾕｰｻﾞ定義関数】デスクトップフォルダ

ＯＨＫＫ（大橋会館）

ＯＨＫＫ（大橋会館）

【ﾕｰｻﾞ定義関数】メアド結合

【ﾕｰｻﾞ定義関数】メアド結合

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

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

名店で創立記念🥂 LANBRoA （ランブロア）

名店で創立記念🥂 LANBRoA （ランブロア）

【ﾕｰｻﾞ定義関数】今月末

【ﾕｰｻﾞ定義関数】今月末

【VBA】ﾜｰｸｼｰﾄ印刷範囲の高速PDF化

【VBA】ﾜｰｸｼｰﾄ印刷範囲の高速PDF化

【ﾕｰｻﾞ定義関数】Replace 代用品

【ﾕｰｻﾞ定義関数】Replace 代用品

🥂　銀座天一　玉川髙島屋店

🥂　銀座天一　玉川髙島屋店

名店で創立記念🥂　LANBRoA （ランブロア）

名店で創立記念🥂　LANBRoA （ランブロア）