Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/09/21(火) 21:13:59.43

>>110
全シートを選択してカットペーストでいけるだろ、と思ったら無理だった

VBEをVBAで動かすしか無いと思う。
https://jizilog.com/vba-modadd
http://officetanaka.net/excel/vba/vbe/07.htm

2021/09/21(火) 21:29:23.86

>>109
vbaってグローバル変数の初期化できないのか・・・
見たことはない。変な気はする
とりあえずはシートに書くほうが楽だと思う
constでいいなら初期化が出来る。社名みたいにほぼ絶対変わらない物ならこれでもいいかも

Public Const 定数 = 1
sub foo
debug.print 定数
end sub

>>113
わらった

2021/09/22(水) 07:59:00.83

>>109
普通か普通ではないか、と言われれば普通ではないかなぁ。
ではどこが、と言われるとまずモジュール変数をグローバル指定しているところはPrivateにして外部から呼び出す用のプロパティに組み込む。これでどこかで値が変更されてもブレイクポイント仕掛けてどこで呼び出されて値が変更されたかを確認出来るようになる。

あと、初期化用の関数はPublic指定にしておかないと別のモジュールから呼び出せないよ。ThisWorkbookから呼び出すんでしょ？

2021/09/22(水) 08:55:25.77

ありがとうございます

2021/09/22(水) 08:56:23.60

constやってみます

2021/09/22(水) 11:22:09.41

普通じゃなかったのか…俺もそうしてた
>>116
勉強になります

2021/09/22(水) 15:13:16.34

書籍「イヤンもう！最初からそう教えてくれればいいのに！ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本」の評判はどうですか？買うか検討中なのですが。

2021/09/22(水) 19:17:45.16

>>120
ゼッタイにわかる本系の口語調文章に抵抗がないラノベ好きには良いんじゃない？

2021/09/22(水) 19:18:09.88

>>120
ゼッタイにわかる本系の口語調文章に抵抗がない人には良いんじゃない？

2021/09/22(水) 19:19:18.20

なにこのエラー去勢された

**デフォルトの名無しさん** (JP 0Hfb-qDHA) · 2021/09/22(水) 19:35:51.24

>>120
人それぞれ印象が違うから、参考書は最初の2、3ページ立ち読みして自分で決めるのがいいよ

2021/09/22(水) 20:05:10.79

イヤンもう
って言うから検索したら特にそんな単語ついてないじゃないですか

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-qDHA) · 2021/09/22(水) 21:46:48.06

https://i.imgur.com/Izd2bnq.jpg

2021/09/22(水) 22:05:18.59

若い子が水着姿で教えるVBAの本なら簡単に死ぬほど売れるのでは？と思った

2021/09/22(水) 22:14:11.23

そもそもVBA自体がオッサン臭い言語

2021/09/22(水) 22:16:41.63

そもそも5ch自体がオッサン臭い場所

2021/09/22(水) 22:21:20.29

そもそもオッサンしかいない

2021/09/22(水) 23:01:12.21

VBAとか作業記録してそれループするなり可変したりするなりちょっと直せば誰でも作れるからな

2021/09/22(水) 23:14:36.78

「はたらくプログラミング」
「高校生からはじめるプログラミング」
「メイクロックマン　史上最大のプログラミング」
「独学プログラマー Python言語の基本から仕事のやり方まで」
のようなアニメやゲームキャラやイケメンを
採用して若い子にアピールするとか
「乙女チック4Gamer」第267回：
「推しと学べるプログラミング」
初心者も学べるプログラミング学習ゲーム
とか

美少女×プログラミング学習×ソーシャルゲーム『コードガールこれくしょん』
とかゲームで呼び込み

恋のプログラミング~ダメ男の見分け方~ DVD-BOX2
のようなDVDを付録に付けてみたりとか
とかとにかくVBAもなんとか頑張って欲しい

2021/09/22(水) 23:55:17.87

オレも1冊3000円くらいのVBAの本買ったわ
その本をキーボードの下奥に置くと角度が良い感じになるんだわ
手首が疲れないし、職場でもなんか「やってる」感がかもし出せるし、本当に買って良かったと思える1冊だったな

2021/09/23(木) 00:25:56.19

全国フェミニスト議員連盟が半泣き←いまここ
https://www.tokyo-np.co.jp/article/132305

2021/09/23(木) 00:27:06.21

>>132
ん。
昔、EXCELVBAゲーム大作戦とかいう本が出てたよ。まぁVBAも昔からあるからゲーム作るのも先駆者がいたんだね。

けど、結局難しいというか、お仕事で覚えることとベクトルが違うんだよ。1/60秒単位で押されているキーの値読み取って、キャラクターや地形描いてその当たり判定行なったりね。

まぁ暇でそういうの作ってみたいというのにはいいかもだけど、お仕事でVBA使うのの興味を持つために、というのにはちょっと重いかもね。

2021/09/23(木) 00:56:08.87

>>133
分かりすぎる
分厚い本って意外と重宝するよなｗ

2021/09/23(木) 00:59:12.19

vbaでゲームは基本的にかなりめんどくさい
メインのループ処理がキツイ
定期的に処理をエクセルに返してあげないと色々と不具合が起きる
曲芸でなければvbaで作るのは絶対に避けたほうが良い

2021/09/23(木) 09:34:39.93

2つあるフレームの位置を調整していたら、
フレームAをフレームBの中にドラッグしてしまったらしく、
2つのフレームが一緒になってしまいました。

プロパティウィンドウを見ると、フレームAはまだ存在するのですが、
画面上にはフレームBしか表示されていないため、Aを選択することができず、
AをBから分離することができません。

AのLeftやTopを変更してみましたが、画面上に変化はありませんでした。

何かいい解決法があれば教えてください。

2021/09/23(木) 09:39:09.54

自己解決しました。

①プロパティウィンドウでプルダウンからフレームAを選択する。
②Ctrl+[A]で全選択した後、Ctrl+[X]で切り取り状態にする。
③フレームBのエリア外にマウスカーソルを持っていき、Ctrl+[V]で貼り付ける。

2021/09/23(木) 11:52:58.11

おめ～＾＾

2021/09/23(木) 13:11:17.06

>>139
たった５分も考える事が出来んのか

2021/09/23(木) 13:48:48.21

せっかく解決策書いてくれてるのにイチャモンつけるバカって何を考えてるんだろ…

2021/09/23(木) 13:53:17.23

ただの寂しがり屋の暇つぶしとか

2021/09/23(木) 13:59:57.49

黙って去るやつよりよっぽどいいんだが

2021/09/23(木) 14:03:41.04

配列からグラフを書いたときってデータ数の上限はありますか?
その場合どのように対処すれば良いですか?

2021/09/23(木) 14:08:33.29

>>145
上限を気にするようなデータ数だったら
excelでは重くて動かないと思う
別の言語で書いた方がいい

2021/09/23(木) 14:45:47.29

>>145
その場合はデータをコンパクトにまとめるしかなくね

2021/09/23(木) 14:47:47.80

>>145
数千個程度は描けたような記憶がある
そもそもそのレベルだと個々の値は見えないから複数個まとめて平均取るとかしてデータ量を減らせばいいかと

2021/09/23(木) 15:12:01.32

系列数に上限がいかにもありそう　255とか

2021/09/23(木) 15:22:04.38

>>145
上限なしだって
https://support.microsoft.com/ja-jp/office/excel-%E3%81%AE%E4%BB%95%E6%A7%98%E3%81%A8%E5%88%B6%E9%99%90-1672b34d-7043-467e-8e27-269d656771c3
これスレのテンプレに入れといてほしい

2021/09/23(木) 18:38:01.80

>>145
セルに適当なデータいれてグラフ作ったら 9万9千9百+α　までしか表示されなかった
メモリの問題かもしれん

2021/09/23(木) 18:52:18.65

ごめんなさい
セルからではなく配列から直接グラフを読み込むときの話です。
自分の場合配列から散布図書いてて
データ数が15000？あたりから表示されなくなったので

2021/09/23(木) 20:46:47.80

だからメモリ少ないんじゃね

2021/09/24(金) 16:28:38.47

VBAで、リボンを常に表示させるてことできるんですか？
ググると
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
ていうのが出てくるんですが、
”タブとコマンドの表示”ていう状態にしたい。

2021/09/24(金) 18:53:45.39

If Application.CommandBars.GetPressedMso("MinimizeRibbon") = True Then
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End If

2021/09/25(土) 02:37:13.36

>>155
おおサンクスｗｗ
できた。

なんでリボンの表示・非表示の記事書いてるやつはここまで書かないのかね。

2021/09/25(土) 06:01:58.81

なんでだと思う？

2021/09/25(土) 07:24:00.70

しっかりと自分で考える事が大事！向上心をもって勉強しよう！

2021/09/25(土) 07:50:31.86

ひろゆきのクラスモジュールの説明は的確で分かりやすかった

2021/09/25(土) 07:51:02.02

クラスモジュールというよりはオブジェクト指向か

2021/09/25(土) 13:59:25.45

このスレにはクラスとかオブジェクト指向とかいうと、ファビョって「マウント取りに来たー！！」とか騒ぐじじいがいるから気をつけた方がいいぞ

2021/09/25(土) 14:23:54.16

5chはじじいの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2021/09/25(土) 15:09:26.96

>>161
聞く方もじじいだし

2021/09/25(土) 22:54:03.42

エクセル詳しい方にご質問。

保護シートの「オートフィルター使用」にチェックつけてる状態で、
Range(Cells(1,1),Cells(1,5)).AutoFilterを実行すると保護解除しろと言われるのですが、原因わかりますか？

Rangeで指定しているセル範囲の保護を外しても言われる始末。
オートフィルターの使用を許可すりゃ通るもんだと思ってました。

見えない仕組みとか、基本的な仕様を見逃してるんかなぁ…

2021/09/25(土) 23:52:15.96

>>164
オートフィルターのオンオフはできないのが仕様だな
https://support.microsoft.com/ja-jp/office/%e3%83%af%e3%83%bc%e3%82%af%e3%82%b7%e3%83%bc%e3%83%88%e3%82%92%e4%bf%9d%e8%ad%b7%e3%81%99%e3%82%8b-3179efdb-1285-4d49-a9c3-f4ca36276de6?ns=excel&;version=90&syslcid=1041&uilcid=1041&appver=zxl900&helpid=21290&ui=ja-jp&rs=ja-jp&ad=jp
注: ユーザーは、この設定に関係なく、保護されたワークシートでオートフィルターを適用または削除できません。

2021/09/26(日) 00:17:38.53

とあるフォルダへのショートカットを作成する方法を調べたところ、
コーディング前に、
>参照設定は、VBA画面→ツールメニュー→参照設定で「Windows Script Host Object Model」を選択します。
>これでWshShellクラスとWshShortcutクラスを利用できるようになります。
という記述がありました。

それで作れそうですが、
作った.xlsmファイルを他人に渡した場合、
その相手が上記の参照設定をしていない環境だったとしても、ショートカットの作成は行えますか？

2021/09/26(日) 00:44:49.64

>>165
ご回答頂きありがとうございます。

こういう基本的な説明くらい最初から見とけって話でしたね。

しかし、シートの保護とAutoFilterを両立できないとは、痒いところに手が届かない仕様ですな。

2021/09/26(日) 01:37:23.16

>>167
オートフィルターON/OFFと同時にシートの保護/解除も書いてしまえばいいんでないの？

2021/09/26(日) 01:39:32.52

>>166
自己解決しました。

参照設定を変更しなくてもショートカットの作成は可能でした。
そちらの方法にします。
https://excel-ubara.com/excelvba4/EXCEL293.html

2021/09/26(日) 01:46:25.94

ちなみに、
①参照設定で「Windows Script Host Object Model」をONにする。
②WshShellクラスとWshShortcutクラスを利用してコーディングする。
③プログラムを実行する。
④ショートカットの作成に成功する。
⑤参照設定で「Windows Script Host Object Model」をOFFにする。
⑥プログラムを実行する。
⑦ショートカットの作成に失敗する。(②の中の定義について「ユーザ定義型は定義されていません」のエラー)
となったので、
>>166については、相手にも参照設定をしてもらわないとショートカットの作成は行えない、ということだと思います。

2021/09/26(日) 01:51:41.55

>>168
確かに、仰る通りですね。
保護は事前に設定しておくものと勝手に思い込んでいました。

一番良い形で解決できそうです。ありがとうございます。

2021/09/26(日) 15:56:59.18

>>170
参照設定した内容はそのエクセルファイルに保存されてる
エクセルファイルを渡した先でその参照設定がちゃんと動くなら動く

2021/09/26(日) 18:28:19.91

二次元配列の第三カラムが重複していたらレコードまるごと排除して、かつ排除された分のレコードを別シートに転記することってできます？

連想配列に入れておけば重複してたらわかるようになるけど、そういう方法ってまとも？

2021/09/26(日) 18:29:58.19

第三限定なの？

2021/09/26(日) 19:28:17.19

できるかどうかではなく、そういう処理を作りたいんじゃないの？

2021/09/26(日) 21:42:42.58

配列とレコードとシートの区別ない人だね

2021/09/26(日) 23:35:14.87

そういう方法で重複チェックをしたことはあるけど
それがまともかと聞かれるとわからんなぁ

2021/09/27(月) 17:52:26.41

配列は要素数が増減するものには向いてない
が、まあいろいろ頑張ればできる

連想配列でわかるのは、入れようとしたときに重複するかどうかで、そもそも重複したものは入っていないだろ

2021/09/27(月) 21:07:52.71

＞配列は要素数が増減するものには向いてない
「vbaの」配列な
他の言語にはpushとか色々便利なものがあるんやで

2021/09/27(月) 21:09:45.06

Excelにはセルっていう使いやすい2次元配列があるからな
速度はご愛嬌

2021/09/27(月) 23:17:35.36

シート入れれば三次元やぞ

2021/09/28(火) 06:06:35.41

>>179
> 他の言語にはpushとか色々便利なものがあるんやで
スクリプト言語とかだろそれ
言語自体の機能として配列のサイズを変えられる言語はそんなに多くないよ
そもそもVBAはその多くない言語に含まれるし

2021/09/28(火) 11:35:58.86

無いものねだりしてもしょうがない
そもそも他言語やっててVBAやった場合
ない機能をどうやって実装するか考えるのが
醍醐味なんだから

2021/09/28(火) 12:14:47.38

>>182
実はVBAは「配列」のサイズを変えれる数少ない言語
まあ多分全コピー発生してるんだろうけど
コレクション系が弱いからそれぐらいできんとかなりツラい
今なら.NETの使うとか出来るけど

2021/09/28(火) 13:45:05.92

>>184
> コレクション系が弱いからそれぐらいできんとかなりツラい
どこが弱いの？

2021/09/28(火) 15:11:07.44

今の時代、メモリなんてたくさん確保しておけばよくね

2021/09/28(火) 15:43:04.78

「たくさん」と言ったってワークステーションやサーバ系のハードウェアでない限りせいぜい64GBか128GBが上限では？

2021/09/28(火) 15:46:57.39

お、おう

2021/09/28(火) 16:43:48.67

64KBまでだよ

2021/09/28(火) 16:48:32.26

VBA(Excel)にそんなメモリ使わせたらヒヤヒヤしちゃう

2021/09/28(火) 17:35:37.46

long配列の下位16ビットにデータ格納されている
long[0],[1]の下位16ビットを結合するとsingleの値となる
(要はsingleが16ビット分割されてlong型に格納されている)
こんなデータが大量に格納されるんですが、上手く結合して型変換する方法がわかりません。。
val("&H" & hex(long(1)) & hex(long(0)))
で32ビット結合はできましたが、その後の暗黙的な変換なしでsingleに変更するにはどうするのが良いでしょうか？

2021/09/28(火) 18:37:14.39

リアルタイムにやる必要が無いならバイナリでファイルに書いて
Singleで読むとか出来そうな気がする。
同じ考え方でADODB.stremも使えそう。

2021/09/28(火) 20:20:03.83

>>191
禁じ手だけどユーザー定義型とLSetで変数の中身を型変換せずに直接コピーできる
LongをSingleにコピーする例

Type TypeLong
　　varLong As Long
End Type

Type TypeSingle
　　varSingle As Single
End Type

Sub Long2Single()
　　Dim myLong As TypeLong
　　Dim mySingle As TypeSingle
　　LSet mySingle = myLong
End Sub

2021/09/28(火) 21:06:13.76

>>191
ん？
今一つよく分からんけど、CSng使って明示的に変換すればいいんじゃないの？

Sub Convert()
Dim originalValue(1) As Long
Dim convertSingle As Single

originalValue(0) = 1
originalValue(1) = 3

convertSingle = CSng(CDbl(originalValue(0) And 65535)) * 65536 + (originalValue(1) And 65535)

Debug.Print convertSingle

End Sub

こんな感じに。
オーバーフローして表示しきれなくなった分は知らんけど。

2021/09/28(火) 21:56:37.27

おっと、すまんこ
括弧の位置間違えてた

Option Explicit

Sub Convert()
Dim originalValue(1) As Long
Dim convertSingle As Single

originalValue(0) = 7
originalValue(1) = 15

convertSingle = CSng(CDbl(originalValue(0) And 65535) * 65536 + (originalValue(1) And 65535))

Debug.Print convertSingle

End Sub

こうかな。
因みにビット扱っているなら説明すると失礼に当たるかもだけど、
65535は16進で&HFFFF、65536は16進で&H10000ね。
ANDは論理演算子ではなくてビット演算子。

2021/09/29(水) 02:45:23.84

>>191
SingleもLongも32ビット長なんだが、Singleの内部形式が分割されて二つのLongに16ビットずつ格納されているのか？
なんでそんなことになってるんだよ。Integer二つでいいじゃないか

考え方としては>>193さんの言う通りLSetでできる
二つのLongから有効な32ビット抜き出すのが手間だけど

Singleの内部形式はIEEE 754のはずだから、自分でビット演算してもできるだろうけど

2021/09/29(水) 02:50:45.14

とりあえず作ってみた
エンディアンの呪いがかかってても知らんw
Type TypeQByte
varByte1 As Byte
varByte2 As Byte
varByte3 As Byte
varByte4 As Byte
End Type
Type TypeLong
varLong As Long
End Type
Type TypeSingle
varSingle As Single
End Type
Function WLong2Single(ByVal long1 As Long, ByVal long2 As Long) As Single
Dim myLong1 As TypeLong
Dim myLong2 As TypeLong
Dim myQByte As TypeQByte
Dim tmpQByte As TypeQByte
Dim mySingle As TypeSingle
myLong1.varLong = long1
myLong2.varLong = long2
LSet tmpQByte = myLong1
myQByte.varByte1 = tmpQByte.varByte3
myQByte.varByte2 = tmpQByte.varByte4
LSet tmpQByte = myLong2
myQByte.varByte3 = tmpQByte.varByte3
myQByte.varByte4 = tmpQByte.varByte4
LSet mySingle = myQByte
WLong2Single = mySingle.varSingle
End Function

2021/09/29(水) 03:32:54.18

VBAには共用体もポインタもないから、
LSetでメモリの内容をコピー
バイナリファイル経由
IEEEの内部フォーマットに合わせてゴリゴリ計算
ぐらいしか思い付かん

この中ではLsetが一番シンプルだし高速
上位、下位の順番が分からんから適当に書くけど、基本的にはこんな感じ
MyLong = Long0 * &h10000 + Long1
Lset MySingle = MyLong

C#とか使えばもっと簡単にできるんで、そもそもこの作業はVBAに向いてない

2021/09/29(水) 04:17:58.49

>>198
それ符号ビットの問題があるぞ
VBAには論理シフトとかないからな

バイナリファイルにするにしても、Longの不要な16ビット捨てる方法考えんといかん

2021/09/29(水) 05:23:25.92

符号ビット対策
64bit限定ならLongLong型を経由すればもっと簡単になるのか？どう書けばいいのかわからんけど

Dim MSB As Long
MSB = (Long0 And &H8000) And &H80000000
MyLong = MSB Or ((Long0 And &H7FFF) * &H10000 + Long1)

**デフォルトの名無しさん** (ｽﾌｯ Sd32-zD50) · 2021/09/29(水) 05:43:02.15

訂正
MSB = ((Long0 And &H8000) <> 0) And &H80000000

2021/09/29(水) 08:25:13.60

>>201
いや、Longの中に入っている時点でマイナスなら* -1してやればいいだけだけど、だったらもっと範囲の広い型で後ろ2バイト以外クリアする方が分岐もなくスッキリするだろう

**デフォルトの名無しさん** (ｽﾌｯ Sd32-zD50) · 2021/09/29(水) 08:41:09.05

>>202
元データの上位2バイトが00で埋まってた場合、論理シフトで符号が変わる場合があるでしょ
VBAには論理シフトがないから、何か別の方法で再現する必要があると思うんだけど
具体的に、動くコード書いてみて

2021/09/29(水) 09:29:57.66

Byte型からLSetが単純で一番速いと思う

定義(追加部分のみ)

Type tyByte
　　Byte0 As Byte
　　Byte1 As Byte
　　Byte2 As Byte
　　Byte3 As Byte
End Type

代入処理はこんな感じ
データの格納順序は知らんから適当

myByte.Byte0 = long0 And &HFF&
myByte.Byte1 = (long0 And &HFF00&) \ &H100&
myByte.Byte2 = long1 And &HFF&
myByte.Byte3 = (long1 And &HFF00&) \ &H100&
LSet mySingle = myByte

2021/09/29(水) 09:40:16.79

>>204
それなら最初にLongをByteにLsetすれば、マスクやシフトしなくても途中のバイトがそのまま取り出せる
コードの行数は増えるけど演算量はもっと減らせる

2021/09/29(水) 12:56:20.18

>>203
ちょっと何を言ってるか分かりませんね。
まずシフトの話はどこから出てきたの？
Long型ならマイナスであれば常にトップビットは
立っているよね？
だからプラスに変換するってことだけど？
トップビットが立っていなければプラスなんで変換する必要はない。
もちろん、最初の設定値のLong型の下位2バイトでマイナスを表現するならそれぞれ*-1してやらなきゃいけないけど>>191を見た限りではそのような扱いでもないしね。

途中でマイナスをもつような型の変数に入れるなら
その後始末をしないといけないというだけ。
そもそもトップビットがなぜ符号なのかというところから理解しないとね。
トップビットを単純に0にすればプラスの値に置き換わるというものでもないし。

例えば、1バイトの変数で言えば、-1はFFhだよね。
これのトップビットを倒すと、7Fhになる。
つまり、1にはならずに127になるよね。

2021/09/29(水) 19:09:56.88

VBAのウインドウの固定で行を選択するとA列に移動してしまうのはどうにかならない？
手動だとそのまま列でウインドウの固定になるから違いがよくわからん

**デフォルトの名無しさん** (ｽﾌｯ Sd32-zD50) · 2021/09/29(水) 21:29:48.02

>>206
元の質問と、そこに付いてるレスをよく読んで

2021/09/29(水) 22:06:13.36

>>206
ゴタクはいいから
> 具体的に、動くコード書いてみて
って言われてるぞ

2021/09/29(水) 22:10:21.46

>>209
具体的なコードは昨日既に>>195で書いているな。

**デフォルトの名無しさん** (ｽﾌｯ Sd32-PL4X) · 2021/09/29(水) 22:32:44.25

図解するとこういうことじゃないの？俺の理解が間違ってる？
https://i.imgur.com/z48adB1.jpg

2021/09/29(水) 22:47:00.69

>>211
うん。それであってるよ。
ただ、.Netみたいにアンサインな型の変数が無いから
それをどうしようか、という話。
Longで普通に計算すると上位2バイトに65535(&HFFFF)辺りが入れば
例えば&HFFFF00000が入ったとして、4294901760が欲しいのに
普通にLong型だと-65536が取れちゃったりするよね。

2021/09/29(水) 23:33:48.06

あ、でも*-1する方法じゃダメか。
これはあくまでマイナスをプラスにする方法であって、トップビットが立っていてもプラスとみなす方法じゃないからね。
そう考えるとやっぱりもう少し幅の広い変数持っといて計算する方法が楽かな。

だからみんなByte型とか使ってたのかー。
なんか勉強になったわ。