[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
45(1): 2023/06/24(土)23:11:51.23 ID:BMMg/Y2o(1)調 AAS
プログラムエリアが数十キロくらいしかなかったから関数もスコープも必要なかった
むしろ綺麗なコードを書くのは贅沢で、PRINTを？とかの省略形にしたり
改行せずバイト数を稼ぐようなコードが賞賛されていた。
59: 2023/06/28(水)01:19:09.23 ID:FkFoqSM5(1/2)調 AAS
>>57
モルダー、あなた疲れているのよ
198: 2023/11/29(水)05:31:22.23 ID:0nQJ/yPv(1)調 AAS
Uiautomationでアプリに表示されてる文字を3万行くらい読み取ったら落ちた
エクセルじゃなくてアプリの方が
どういう理屈?
293: 2023/12/30(土)01:00:29.23 ID:lZZlE2RF(1)調 AAS
>>291
これな。ネットの野良マクロをコピー職人が多い事多い事
298: 2023/12/31(日)18:55:45.23 ID:1wnOvxvM(1)調 AAS
>>296
クラスモジュールに書いてる？
321(3): 2024/01/04(木)19:44:33.23 ID:zwj60hXG(1)調 AAS
5×５のセル内をソートして、左上が最大値でそこから昇順に右下が最小値にして数値を入れ替えるマクロって作れますか？
350(1): 2024/01/11(木)21:32:22.23 ID:jLVdVVn1(1/2)調 AAS
>>348
そんなことするなら素直に
>セルごとに隣接判定をして罫線を描く／描かないの処理
を実装すればいいんじゃねえかと
Sub test()
Dim r As Range
Dim r2 As Range
Set r2 = Selection
For Each r In Selection
If Not isSelect(r, xlEdgeTop) Then r.Borders(xlEdgeTop).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeBottom) Then r.Borders(xlEdgeBottom).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeLeft) Then r.Borders(xlEdgeLeft).LineStyle = xlContinuous
If Not isSelect(r, xlEdgeRight) Then r.Borders(xlEdgeRight).LineStyle = xlContinuous
Next
End Sub
Function isSelect(testRange As Range, index As XlBordersIndex) As Boolean
On Error Resume Next
Dim r As Range
For Each r In Selection
Select Case index
Case xlEdgeTop
If r.Address = testRange.Offset(-1, 0).Address Then isSelect = True
Case xlEdgeBottom
If r.Address = testRange.Offset(1, 0).Address Then isSelect = True
Case xlEdgeLeft
If r.Address = testRange.Offset(0, -1).Address Then isSelect = True
Case xlEdgeRight
If r.Address = testRange.Offset(0, 1).Address Then isSelect = True
End Select
Next
End Function
こんな感じか。行数制限あるからやってるけど、１行If は推奨しないぞ
405: 2024/01/20(土)19:05:48.23 ID:6lky6R4+(1)調 AAS
>>404
はい
チューリング完全なので
713: 2024/03/20(水)13:01:02.23 ID:k/ghtD7O(1)調 AAS
？
780(1): 2024/03/29(金)08:27:45.23 ID:dZqA+XaT(1/2)調 AAS
>>766
大学出なのにそんな質問する奴はヤバい以上だろ
988: 2024/04/18(木)08:48:08.23 ID:O8jGm8aK(1)調 AAS
>>986
おたくもか
でも困らんと思うよ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.083s