!pucchoy
独自idコマンド
!chid
主マーク削除コマンド
!nonushi
認証リンク（書き込めない人は認証、入力は何でも良いみたいです）
https://bbs.punipuni.eu/auth
★独自IDを有効にしたぶい！
★スレ主表示をOFFにしましたぶい！
★ﾌﾟｯﾁｮｲ表示：ON
ワイはSUMとかしか使えない
調べながらやとvlookupってやつも使えるけどもう忘れた
D列にうんこのエンドフラグを付けて、
うんこ2だったら一つ上
うんこ3だったら2つ上のやつを取得して
あとはフィルタと組み合わせれば少し楽じゃないかな🤔
エクセルは難しいねぇ🥹
運転以外のことをすると法律違反だけど常態化してるらしい
SESの面談という名の面接といい労働関係の法律はザルかよ
総回転数 400,840回転
BIG 1,596回（1/251.15）
REG 1186回（1/337.97）
投資 68,954枚
回収 104,598枚
差枚 プラス35,644枚
ちなみにワイはパチンコマジで何も分からん
SIerとSESはやめとけおじさんだけど早くした方がいい
先頭と後ろをフィルタリングして抽出するより真ん中を除外してフィルタリングするほうが楽やと思うで
パチンコの期待値など時間の無駄だぞ
アクシードで英語の期待値+にした方が1000倍マシ
出来た？🥺
上から1行ずつ見ていって
うんこ出たら最小値
以降のうんこ出るたびに最大値
うんこ途切れたらシートに入力
最大うんこがなかったら入力はスキップ
また最小のうんことる
最大うんことる
ってループするのが一番単純だと思うよ🥺
変数の初期化と無限ループ対策はしてね🥺
急にグーグルのおすすめ記事にジャグラーやりまくったら家建ったって記事でてきたから気になっただけや
アクシードはワイもやってるで
実はVBAできないの🥺
誰か優しい人がコード貼ってくれると思ってた🥺
自分だけは勝てるみたいな自信があるのかな
ていうか飲み物のセットないんやな🥺
本当にお金増やしたいなら投資信託買って気絶するのが☝️ええし🥺
デスクワークホワイトワーカーがいいの🥺ブルーカラーいやいや🥺
早くなぜなぜまみれになろうぜ。
CR残業のがワンチャン面白い
これでいいか！？
https://i.imgur.com/pxUsVo7.jpg
じゃあ運行管理者取ろっか☺️
君の好きなホワイトカラーや😇
生産管理オススメやぞ！
ええやん
何するんや
品保「フー」
設計「ｺﾞｷｺﾞｷ」
いまのイボは周りの皮膚のこと考える必要ないくらい広がってるの🥺
ウィルスの浸食よりも早く殲滅することが優先だよぉ
これ嫌い
https://i.imgur.com/z1boRDW.jpg
アプリケーション開発、インフラシステム構築維持、MS365とかのクラウドソリューションとかキリないよな
国は一次産業を大事にしろ！
↑こいつら
まじで経歴書は手順書に沿ってpcのキッティングとアカウントの作成と削除してました、以上みたいな感じで笑えなかった
教員免許はどうや😁
職場のグループラインに返すだけでなんでこんな悶々としないといけないんだろ🥺
散々迷った挙げ句こんな時間に送っちゃうしワイはいつも判断が遅い🥺
うつの初期症状か？🤔
これセールじゃないで🥺
いつも赤字の値段やで🥺
誰かが立ててくれる計画に沿って同じことしてりゃ褒められるしクリーンルームでの作業だったら暑すぎる寒すぎることもないし
ぼくもSESからの脱出転職組🥺
経歴書は遊びまくったよ🥹
ワイが会社としてその現場に入って1年後には会社メンバー何人も増やせたから鉄砲玉もとい先駆けとして実績あるよみたいな🥺
単品合計と比較するのなんかずるくない？🤔
何事も身を持って体験することじゃよ
映画館行こう
さすがに全部やるのはおちごとになっちゃうよ🥺💦
とりあえずifとfor文だけ覚えれば出来るよ🥺
寒暖差キツイ時期嫌い😫
南無阿弥陀仏って唱えて死ねば極楽浄土に行けるみたいやで😇
大体こんな感じやろ？
エディターで書いたわけやないからところどころ文法適当やと思うけど
Dim i as long ‘参照テーブルループ用
Dim j as long ‘コピー先ループ用
Dim Minval as long ‘最小値取得
Dim Maxval as long ‘最大値取得
Dim strMintoMax as string ‘##~##
i=0
j=0
Do until Range(“うんこの開始セル”).offset(i,0)
If Range(“うんこの開始セル”).offset(i-1,0) <> “うんこ” and Range(“うんこの開始セル”).offset(i,0) = “うんこ” then
minval = Range(“数字の開始セル”).offset(i,0) ‘最小値取得
end if
If Range(“開始セル”).offset(i,0) = “うんこ” and Range(“開始セル”).offset(i+1,0) <> “うんこ” then
maxval = Range(“数字の開始セル”).offset(i,0) ‘最大値取得
‘最小値と最大値が取得できたので貼付する
strMintoMax = minval & “~” & maxval
with Sheets(“貼り付け先シート”)
.Range(“貼り付け先シートのうんこ行の開始セル”).offset(j,0) = “うんこ”
.Range(“貼り付け先シートの数字行の開始セル”).offset(j,0) = strMintoMax
end with
j = j + 1
minval = “”
maxval = “”
end if
i = i + 1
loop
ちょっと修正
Dim i as long ‘参照テーブルループ用
Dim j as long ‘コピー先ループ用
Dim Minval as long ‘最小値取得
Dim Maxval as long ‘最大値取得
Dim strMintoMax as string ‘##~##
i=0
j=0
Do until len(Range(“うんこの開始セル”).offset(i,0))= 0
If Range(“開始セル”).offset(i-1,0) <> “うんこ” and Range(“開始セル”).offset(i,0) = “うんこ” then
minval = Range(“数字の開始セル”).offset(i,0) ‘最小値取得
end if
If Range(“開始セル”).offset(i,0) = “うんこ” and Range(“開始セル”).offset(i+1,0) <> “うんこ” then
maxval = Range(“数字の開始セル”).offset(i,0) ‘最大値取得
‘最小値と最大値が取得できたので貼付する
strMintoMax = minval & “~” & maxval
with Sheets(“貼り付け先シート”)
.Range(“貼り付け先シートのうんこ行の開始セル”).offset(j,0) = “うんこ”
.Range(“貼り付け先シートの数字行の開始セル”).offset(j,0) = strMintoMax
end with
j = j + 1
minval = “”
maxval = “”
end if
i = i + 1
loop
たぶんこれじゃないの🥺
https://www.nhk.or.jp/gendai/articles/4249/
連続する数字の最初と最後を読み取るんやろ🙄
仕事よりストレスかかる🥺
ワイのコードそうなってると思うんやけど🤔
各連続セクションの最小値と最大値を取るで
ワイがシコシコ作ったマクロいらない子になってまう🥺
SESならいくらでも
あるけど薄給だよ🥺💦
実務経験ないならSESでも無理っす
https://i.imgur.com/8zaypxZ.jpg
楽しみだな
はぇ〜😭
どこも拾ってくれないからほんまつらい😭😭
🙏
CoDの最新作発売されるからそれやよぉ🥺
それまではテラリアとかかな
セミリタイアの選択しやな🥺
ワイも他に仕事あるなら転職したいわ
もう食えないのかなぁ
https://i.imgur.com/ckN31QX.jpg
右側中央の白いのなに
とろろ芋？
いい会社やなと思ってたらもしかしたらクソ会社かもしれん
チャーシューやね
なんか白いな脂身多めのとこかもしれん
詳しく
晩酌の酒は削れんけど2日で3食くらいの食生活の中にラーメンを入れてる🥺
色々理解する前に吐いといた方がええで
きいたるで
恨むならプーチン恨め
毎日4km走るようにしとる
大丈夫と信じたい😇
建物の問題らしいけど
すまんやで…
月曜日にもレスしたんやけど退職すること上司に伝えたら「君がやりたいって言ったからこのプロジェクトにアサインしたのにやめるなんてそれまで裏で頑張ってくれた人に失礼だよね」って言われて「退職の手続きは分からんからまた聞いとくわ」って言われて今に至るんや
そのうえでさっきエージェントに>>249,256を言われて板挟みになってわりと精神的にキツイ
https://i.imgur.com/bQZsQZm.jpg
VBAは知らない😭
退職代行頼んだら？
やめる会社の話か？
やめるならクソ会社のほうが後ろ髪引かれないから良くない🤔