TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【正論】ひろゆき 「他者に敬意を払えない人って、なんなんでしょうねぇ。」 [701470346]
テリー・ボガードが女体化した結果すごいエチエチになる [168689757]
【画像】ついに明日、大人気のパチンコ『戦姫絶唱シンフォギア2』が自粛無視で新台導入されてしまう…。大規模クラスター発生か [372775825]
【画像】俺氏、最高に美味い唐揚げを作ってしまう [166962459]
「着るだけで筋肉がつく」などと謳う「加圧シャツ」、科学的根拠がないとして業者に課徴金支払い命令 こんなの買うの情弱だけだろ… [597533159]
【無念・・】東京五輪、通常開催は「断念」・・「延期」で再スタートへ [294225276]
PC-88とかいうケンモメンでもイマイチ語れないPC [765635801]
LGBTさん 「正直言うと特別扱いされなくても良いです」 左翼「それは許さん」 ・・なぜなのか? [535898635]
【朗報】ワイ、メモリを32GBに増設して無敵の存在になってしまう [166962459]
上坂すみれ(27)が秋葉原のメイドカフェを訪問。猫耳を付けたカワイイ姿を披露しメイドを公開処刑 [208924962]
【プログラミング部】 厚生省のエクセルVBAのコードが凄すぎると話題に! どうやってこんなコード思いつくんだ [623653551]
- 1 :2019/05/23 〜 最終レス :2019/05/24
- http://img.2ch.sc/ico/purin.gif
ソース
厚労省で配布されている
https://www.mhlw.go.jp/stf/seisakunitsuite/bunya/000116890_00001.html
にある
https://www.mhlw.go.jp/content/10900000/000494621.xlsm
- 2 :
- 全文貼って
- 3 :
- 東大出てやる事がエクセルVBAねえ
- 4 :
- http://img.2ch.sc/ico/nida.gif
1は知障
- 5 :
- 面倒だからスクショで貼れや無能
- 6 :
- >>5
これメンス
- 7 :
- 中小企業か!😀
これで統計が違ってましたとかいうんか?
- 8 :
- スマホがぶっ壊れた
- 9 :
- 何も考えずに習いたての中学生が作ったレベル
- 10 :
- '--市町村別用シート用--
Const 健診HI法_件数_列 As String = "I"
Const 健診HI法_件数_行 As Integer = 23
Const 健診HI法_金額_列 As String = "J"
Const 健診HI法_金額_行 As Integer = 23
Const 健診HI法_税込金額_列 As String = "K"
Const 健診HI法_税込金額_行 As Integer = 23
Const 健診EIA法_件数_列 As String = "I"
Const 健診EIA法_件数_行 As Integer = 24
Const 健診EIA法_金額_列 As String = "J"
Const 健診EIA法_金額_行 As Integer = 24
Const 健診EIA法_税込金額_列 As String = "K"
Const 健診EIA法_税込金額_行 As Integer = 24
Const HI法_件数_列 As String = "I"
Const HI法_件数_行 As Integer = 25
Const HI法_金額_列 As String = "J"
Const HI法_金額_行 As Integer = 25
Const HI法_税込金額_列 As String = "K"
Const HI法_税込金額_行 As Integer = 25
Const EIA法_件数_列 As String = "I"
Const EIA法_件数_行 As Integer = 26
Const EIA法_金額_列 As String = "J"
Const EIA法_金額_行 As Integer = 26
Const EIA法_税込金額_列 As String = "K"
Const EIA法_税込金額_行 As Integer = 26
Const 夜間休日HI法_件数_列 As String = "I"
Const 夜間休日HI法_件数_行 As Integer = 27
Const 夜間休日HI法_金額_列 As String = "J"
Const 夜間休日HI法_金額_行 As Integer = 27
Const 夜間休日HI法_税込金額_列 As String = "K"
Const 夜間休日HI法_税込金額_行 As Integer = 27
Const 夜間休日EIA法_件数_列 As String = "I"
Const 夜間休日EIA法_件数_行 As Integer = 28
Const 夜間休日EIA法_金額_列 As String = "J"
Const 夜間休日EIA法_金額_行 As Integer = 28
Const 夜間休日EIA法_税込金額_列 As String = "K"
Const 夜間休日EIA法_税込金額_行 As Integer = 28
Const 通常_件数_列 As String = "I"
Const 通常_件数_行 As Integer = 30
Const 通常_金額_列 As String = "J"
Const 通常_金額_行 As Integer = 30
Const 通常_税込金額_列 As String = "K"
Const 通常_税込金額_行 As Integer = 30
Const 予防_件数_列 As String = "I"
Const 予防_件数_行 As Integer = 31
Const 予防_金額_列 As String = "J"
Const 予防_金額_行 As Integer = 31
Const 予防_税込金額_列 As String = "K"
Const 予防_税込金額_行 As Integer = 31
- 11 :
- '--総括表用シート用--
Const 総括_健診HI法_件数_列 As String = "E"
Const 総括_健診HI法_件数_行 As Integer = 22
Const 総括_健診HI法_金額_列 As String = "F"
Const 総括_健診HI法_金額_行 As Integer = 22
Const 総括_健診HI法_税込金額_列 As String = "G"
Const 総括_健診HI法_税込金額_行 As Integer = 22
Const 総括_健診EIA法_件数_列 As String = "E"
Const 総括_健診EIA法_件数_行 As Integer = 23
Const 総括_健診EIA法_金額_列 As String = "F"
Const 総括_健診EIA法_金額_行 As Integer = 23
Const 総括_健診EIA法_税込金額_列 As String = "G"
Const 総括_健診EIA法_税込金額_行 As Integer = 23
Const 総括_HI法_件数_列 As String = "E"
Const 総括_HI法_件数_行 As Integer = 24
Const 総括_HI法_金額_列 As String = "F"
Const 総括_HI法_金額_行 As Integer = 24
Const 総括_HI法_税込金額_列 As String = "G"
Const 総括_HI法_税込金額_行 As Integer = 24
Const 総括_EIA法_件数_列 As String = "E"
Const 総括_EIA法_件数_行 As Integer = 25
Const 総括_EIA法_金額_列 As String = "F"
Const 総括_EIA法_金額_行 As Integer = 25
Const 総括_EIA法_税込金額_列 As String = "G"
Const 総括_EIA法_税込金額_行 As Integer = 25
Const 総括_夜間休日HI法_件数_列 As String = "E"
Const 総括_夜間休日HI法_件数_行 As Integer = 26
Const 総括_夜間休日HI法_金額_列 As String = "F"
Const 総括_夜間休日HI法_金額_行 As Integer = 26
Const 総括_夜間休日HI法_税込金額_列 As String = "G"
Const 総括_夜間休日HI法_税込金額_行 As Integer = 26
Const 総括_夜間休日EIA法_件数_列 As String = "E"
Const 総括_夜間休日EIA法_件数_行 As Integer = 27
Const 総括_夜間休日EIA法_金額_列 As String = "F"
Const 総括_夜間休日EIA法_金額_行 As Integer = 27
Const 総括_夜間休日EIA法_税込金額_列 As String = "G"
Const 総括_夜間休日EIA法_税込金額_行 As Integer = 27
Const 総括_通常_件数_列 As String = "E"
Const 総括_通常_件数_行 As Integer = 29
Const 総括_通常_金額_列 As String = "F"
Const 総括_通常_金額_行 As Integer = 29
Const 総括_通常_税込金額_列 As String = "G"
Const 総括_通常_税込金額_行 As Integer = 29
Const 総括_予防_件数_列 As String = "E"
Const 総括_予防_件数_行 As Integer = 30
Const 総括_予防_金額_列 As String = "F"
Const 総括_予防_金額_行 As Integer = 30
Const 総括_予防_税込金額_列 As String = "G"
Const 総括_予防_税込金額_行 As Integer = 30
- 12 :
- Sub Soukatu_shukei_Click()
Dim Shuukei_cell
Shuukei_cell = 2
Dim HI法_件数 As Long
Dim EIA法_件数 As Long
Dim 夜間休日HI法_件数 As Long
Dim 夜間休日EIA法_件数 As Long
Dim 健診HI法_件数 As Long
Dim 健診EIA法_件数 As Long
Dim 通常_件数 As Long
Dim 予防_件数 As Long
Dim HI法_金額 As Long
Dim EIA法_金額 As Long
Dim 夜間休日HI法_金額 As Long
Dim 夜間休日EIA法_金額 As Long
Dim 健診HI法_金額 As Long
Dim 健診EIA法_金額 As Long
Dim 通常_金額 As Long
Dim 予防_金額 As Long
Dim HI法_税込金額 As Long
Dim EIA法_税込金額 As Long
Dim 夜間休日HI法_税込金額 As Long
Dim 夜間休日EIA法_税込金額 As Long
Dim 健診HI法_税込金額 As Long
Dim 健診EIA法_税込金額 As Long
Dim 通常_税込金額 As Long
Dim 予防_税込金額 As Long
HI法_件数 = 0
EIA法_件数 = 0
夜間休日HI法_件数 = 0
夜間休日EIA法_件数 = 0
健診HI法_件数 = 0
健診EIA法_件数 = 0
通常_件数 = 0
予防_件数 = 0
HI法_金額 = 0
EIA法_金額 = 0
夜間休日HI法_金額 = 0
夜間休日EIA法_金額 = 0
健診HI法_金額 = 0
健診EIA法_金額 = 0
通常_金額 = 0
予防_金額 = 0
HI法_税込金額 = 0
EIA法_税込金額 = 0
夜間休日HI法_税込金額 = 0
夜間休日EIA法_税込金額 = 0
健診HI法_税込金額 = 0
健診EIA法_税込金額 = 0
通常_税込金額 = 0
予防_税込金額 = 0
- 13 :
- 草
- 14 :
- NGワードでちゃったんでこれ以上は無理だけど
こんな感じ
- 15 :
- え?これ何かツールで自動生成したコードだよね?
- 16 :
- C触った程度の俺に分かるように説明しろ
- 17 :
- なにこのジェンガ造り
- 18 :
- excel職人実在してて草
- 19 :
- >>10
こういうのは名前つきRangeとかいう
ちっとはマシな機能がある
- 20 :
- どうせ下請けのSEがやったんだろ
俺もNなんたらで仕事してたときはこんなもんよ
COBOLはそこで覚えた
- 21 :
- 変数名日本語でかいてんの?
- 22 :
- ひえっ
- 23 :
- >>12
Shuukei_cellちゃんだけ型がわからなくてかわいそう
- 24 :
- >>21
保守性は日本語の方がいいだろ
- 25 :
- さすがに手入力じゃなくて、マクロ機能とかで自動生成してるのでは
- 26 :
- >>21
そっちのがよくないか
- 27 :
- でたー日本語変数名
- 28 :
- >>21
専門用語なら下手に英語やローマ字にするより可読性あるぞ
- 29 :
- これ人力じゃないだろ
- 30 :
- 構造体位使えや
あとセルを直接操作するようなコードは処理が重くなるだけ
まともなvba使いなら計算処理は配列で処理して結果だけをセルの突っ込む
- 31 :
- >>23
直ぐしたの行でわかるやん
C#で言うvar なんたら=型明記のやりかたやろ
- 32 :
- 変数名日本語は下手な英語にするよりは正直ありだと思ってる
マジックナンバー減らそうとして頑張ったんだろうな…
- 33 :
- クソ低レベルだけどもっと酷いの想定してたからスパゲッティになってないだけマシだわ
つーかVBAの中身なんて普通公開しないようにしとくだろ
- 34 :
- ソース見てみたけど何かおかしいか?
変数に日本語使ってるからおかしいとか気持ち悪い事言うなよ。
俺やったら何たらチェックとかやってる部分は関数に飛ばすけど
こんだけのステップ数であれば一筆書きにしてても特に違和感ない。
やりすぎと思うのは、こんだけのステップ数であれば列・行をコンストする所くらいやけど
他のマクロとかも大量にあるやろうから、統一書式なんやろうなーと思うと寧ろ良く部署内
で統制されてると思う。
- 35 :
- きちんと定数で用意してる辺りSEが作ってるだろ
ほんとの素人に作らせたらもっとガイジやぞ
- 36 :
- 日本語変数はやべえだろ
あと構造体使えよ
- 37 :
- わかりやすくていい
- 38 :
- 日本語で定義したらコード打つときいちいち変換するのがめんどくさそう
可読性は知らんが効率落ちるだろ
どうなん
- 39 :
- >>23
VBAの型指定なんか飾りよ
- 40 :
- >>30
と、思うだろ?
出力先のセルがばらばらでどうしようもないなんてのはよくある話
神エクセルの撲滅から始めないとこの国ダメだ
- 41 :
- 整理されてるじゃん
- 42 :
- ほんとの素人コードならこんな論理的に作られる訳がない
- 43 :
- vbaてエディタ何つかうん
Excelに付いてるのはゴミって知ってるけど
- 44 :
- >>38
役人は効率なんて言葉知らんだろ
- 45 :
- ()で関数を呼び出せないのか?
- 46 :
- キチガイすぎワロタw
- 47 :
- >>38
それはある。いちいち切り替えないといけない。
でもコーディングってカタカタ全部文字打つのではなく、基本コピペやからな。
意味不明の日本語か英語か分からん単語の頭文字だけを繋げた変数を用いるより
変数に日本語をはっきりと書いてしまう方が余程ロジックが分かり良い。データベースの項目名もな。
- 48 :
- >>43
vscodeでok
- 49 :
- いや日本語はありだ
下手な事してあとでわからなくなる俺よりは賢い
- 50 :
- 電車関係で専門用語多すぎて日本語変数名にしたことはあるけど予測ができないくらいで
仕様変更なんかのときにはすぐわかるから楽だったわ
- 51 :
- >>48
知らなかった…
- 52 :
- >>48
vscodeいけんの?
ありがとう
- 53 :
- プロに頼んだら3ヶ月300万円とか言われるし稟議通すのだから素人が試し試し作った方がマシ
業務のプロが書いたコードの方が有用なんだよ
- 54 :
- これが東大官僚の力か
- 55 :
- こんなんキモくて吐きそうになる
- 56 :
- 昔のCOBOLなんて日本語変数余裕であったぞ?
文字コードがUTF-8で事実上統一されている現在
日本語変数を使っちゃいけない理由は特に思いつかない
- 57 :
- どうせ下請けがやってんじゃね
- 58 :
- .NETでconstってめちゃくちゃパフォーマンス要求される場面でもないと使わなくないか?
普通はreadonlyじゃね?
- 59 :
- Javaは変数名に日本語使えないから
もうそりゃSQL周りの変数定義の変数名はひどいの何の、人によってヘボン式やら訓字式やら[ん]やらちっちゃい[つ]の書き方がごちゃごちゃ
- 60 :
- 日本語変数名が超気持ち悪い
コメントと見分け付きにくいし
送り仮名の振り方とかでブレやすいし
こんなんめっちゃ嫌だわ
- 61 :
- 今はなにが流行ってるの?
VBAやっとけば無難だと言われたのだが
- 62 :
- なるほど激務じゃん
- 63 :
- >>58
これVBAマクロだから
VB.NETとちゃう
- 64 :
- >>61
パイソンやろなぁ
- 65 :
- >>21
専門分野で使われる用語はちゃんと決まってるからな
下手に独りよがりな英語とか使っちゃうとわけわからなくなる
- 66 :
- >>50
保守できなくなるより余程いいと思うがねえ
そもそも2バイト文字使えるのかよ
- 67 :
- 変数名日本語にできるんだ
ぱっと見バカじゃねえのって思ったけど自分用ならどうでもいいな
- 68 :
- >>23
Variantちゃん…
- 69 :
- IT土方に鼻で笑われるレベル
- 70 :
- >>64
pythonはだいぶ落ち着いたって聞いたが
- 71 :
- >>36
全くヤバくない
むしろなんでヤバイと思う?
- 72 :
- まあ、後で見た人間がかろうじて理解できそうだからこれでいいんじゃないの
自分が組んだら変数が必要になる度に後付でどんどん追加していくから、大体自分以外には解読不能なクソの山になるし
- 73 :
- 何故、日本語なんだ
- 74 :
- これおまえら後で保守しろって言われたらどうすんの
- 75 :
- 命名の基準まで決まってんのか知らんけどそら仕様書があれば保守できるだろ
- 76 :
- 単純だから保守はしやすいんじゃね
- 77 :
- Dim JokyuKokumin_name As String
より
Dim 上級国民_name As String
のほうが分かりやすいだろ
- 78 :
- コメントで意図だけ書いてソース短くしたほうがわかりやすいだろ
- 79 :
- >>74
少なくとも俺の書いたPSスクリプトやらに比べりゃ分かりやすい
普通は自分で書いても数ヶ月後には訳ワカメになってる
それに比べたら全然読みやすい
変にトリッキーやらスマートな書きかたするよりかVBAなら、こういう書き方の方がいいと思う
流石東大
- 80 :
- >>74
保守考えたらありがたいコードだろこれ
- 81 :
- 型を変数に含めないと気持ち悪く感じるようにさせられたからなあ
- 82 :
- これを最初に定義することで業務ロジック部のコードをパッと見てわかるようになる
- 83 :
- >>21
日本語直訳の英語変数名やられるより良い
- 84 :
- 人事異動の際に引き継ぎやすいようにしてあるのかな
- 85 :
- 日本語の方が後任者に引き継ぐとき分かりやすいだろ
- 86 :
- 計算機の専門家でもなんでもないひとがつくって
計算機の専門家でもなんでもないひとが引き継ぐんだから
日本語変数のほうがよほどまし
- 87 :
- >>77
俺ならクラスか構造体にするかな
kokumin.name="飯塚"
kokumin.jyoukyu=True
- 88 :
- 誰が見てもわかるコードこそが至高のコードだろ
これはまだマシだろ
お前らの頭が良いのはわかるけどわけのわからんコード書くな!
バカでもわかるようにしろ!
- 89 :
- 行と列適当に追加したら死ぬのか
- 90 :
- 俺レベルのIT土方マイスターになるとコピペラミングしかしねぇから
何の問題もねぇ
独自コード書くとソースレビューでイチャモン付けられるからな。。。。
オタクらが書いたコードでっせ?というのが基本だわ
- 91 :
- これなにがダメなの?
- 92 :
- 多分、職員が作業しやすいように基幹DBシステムのデータを
スナップショットで抜いたデータをエクセルにエクスポートしてる
- 93 :
- 見ずに言うけど仕様追加を繰り返したソースはこうなる
- 94 :
- これ全部外注だろ。
あいつらがプログラム書けるわけねーもん。
たとえ一部に書ける奴いても責任問われる仕事は絶対逃げるし。
- 95 :
- 変数名考えるのが面倒くさいんだろ
ローマ字にするとややこしくなるし
- 96 :
- 最初ギョッとしたわ
でも分かりやすいか分かりやすくないかで言えば分かりやすいからまあアリなんじゃないかと思えた
特に理解力にばらつきのある多数がいじる可能性考えると効率よりも極力見た目の分かりやすさと1つ理解できていることでそのまま転用・類推できる構造っていうのは重要
でもこんなん自分では書きたくねえ
- 97 :
- 仕事でVBA書きまくってるワシとしては
きれいな良いコードだと言わざるを得ない
- 98 :
- いや生産性低いから日本語変数嫌いなんだが。。。
- 99 :
- >>4
くやしいか?
- 100 :
- http://img.2ch.sc/ico/nida.gif
日本語変数が良くないって、
コーヒーはスターバックス以上じゃないと認めないみたいな美意識入ってるよね
100〜のスレッドの続きを読む
エロ表現の革命児「アヘ顔ダブルピース」ってなんで廃れたの? [571598972]
北海道モメンってセイコーマートを神格化してる節があるよね。どんな魅力があるんだ [424896289]
嫌儲プリコネ部 『プリンセスコネクト!Re:Dive』で「シャドウバース」とのコラボキャラ「ルナ(CV:小倉唯)」が10月31日より登場! [502082782]
【ラブライブ!】果「さ!赤坂から沼津まで走るよ!」ダ「局が違いますわ!」丸「曲が違うずら?」CYR「ふぇ?」 [256439489]
マウントを取るために大学に行ったり結婚したりする日本人って頭がおかしいんじゃないの? [805596214]
岩田健太郎教授の動画がたった1日で世界で再生100万回超 安倍政権の無能っぷりが全世界に爆拡散! [455169849]
専門家「新幹線の改札にセンサーをつける。車掌の手荷物チェック権を強くする。これしかない」 [399583221]
【気持ち悪い】指原莉乃、完全にあっち側の人になる★2 [358195575]
NHK「10代の性について本気出して考えてみた」 [372215213]
なぜチョンモメンは40代の貧乏なオッサンだけは擁護するのか?誰か理由を知っている人いる? [535898635]
--------------------
職場の愚痴を吐き捨てるスレ11
【悲報】武漢からの「帰国組」のホテル隔離の扱いがひどい!2人1室の相部屋、食事は袋に入った弁当、キーも渡さず…室内軟禁状態 ★2
技術的特異点/シンギュラリティ184【技術・AI】
【音声MVNO】JCOMモバイル 1[ジュピターテレコム]
【USA】米女優ジェーン・フォンダさん(81)、環境問題デモに参加して逮捕
野口健「グレタさんには『さん』付け。僕には『野口』と大半で呼び捨て」「女性自身さん…」 ネット「屑メディアには反論しましょう
【天使の】4歳〜5歳児の日常【悪魔の】 ★23
視覚障害者雑談スレパート14
【京阪奈】近鉄運行情報【愛三】
【Bluetooth】完全ワイヤレスステレオイヤホン Part92【TWS・左右分離型】
星野源の噂421
プリキュアシリーズ玩具スレ95
唄い屋 清木場俊介 67
妊娠糖尿病・糖尿病合併妊娠の妊婦 10
au WIN W53H by HITACHI Part11
近畿の高校野球665
【PSO2】おすすめの袋ラーメン教えてくれや
【芸能】男性アイドルの結婚 "祝福できないのは本当のファンじゃない論”の行方
arsざつだん372(IDなし)
岡田有希子とサンミュージック vol.2
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼