TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【記念】FileMaker ver8専用スレ【発売】
医療関係のソフトおしえて
ATOK15に関するスレッド
Excelで動く2chブラウザマクロ「=2ch」
【独占】ゼンリン地図不買運動【傲慢】
Microsoft OGA が本格始動 part2
フリーソフトだけでSOHO運営できる??
【監視される社員たち】LanScope【人権侵害？】
Publisher総合相談室
スレたてるまでもない質問に答えるスレ
- 183 ：
- >>181
vbaならこんな感じ
Sub draw_line()
Dim BeginX As Single ''始点(左からの距離)
Dim BeginY As Single ''始点(上からの距離)
Dim EndX As Single ''終点(左からの距離)
Dim EndY As Single ''終点(上からの距離)
BeginX = Cells(Selection(1).Row, Selection(1).Column).Left
BeginY = Cells(Selection(1).Row, Selection(1).Column).Top
EndX = Cells(Selection(Selection.Count).Row + 1, Selection(Selection.Count).Column + 1).Left
EndY = Cells(Selection(Selection.Count).Row + 1, Selection(Selection.Count).Column + 1).Top
With ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Line
.ForeColor.RGB = vbBlack '線の色
.Weight = 1 '線の太さ
End With
End Sub
一太郎総合スレッド その１５
【発想支援】アイデアプロセッサ等 2+【価値創造】
☆★★ 弥生人事給与 ★★★
複数PCにExcelをインストールできない
フリーソフトだけでSOHO運営できる??
革命的なインターネットブラウザを発見しました
Outlook総合相談所 Part12
Office XP スレッド
ATOK15に関するスレッド
大村あつし、プロジェクトエーを退任
--------------------
【嘘つき豚の毎日】あいぽん隔離スレ☆39【真夏の岡崎の淫夢】
銀魂なんでも雑談355【ホモノマ百合】
聖書の信ぴょう性
おちんちん総合スレッドpart2
TOKYO MXアニメ実況★5127
城丸君事件を語ろう
【京田のパン】モデルアイコン・札幌コムモデルを語れ！二枚目【ワンマイル】
サミー777タウン ナナリズム Part123
早稲田大学大学院の教授がミラーマンした後、さらに痴漢で捕まった事件あったよなｗｗｗ
【札幌すすきの】●● だるま ●●【ジンギスカン】
【婚活アカウント】ねこねこ専用ヲチスレ
個人用AA保管庫
続・なんだかんだお題でつなごうよ ノーマル3
☆★★2019年度台風19号(ハギビス) 4 ★★★
CLOSERS クローザーズ part365
筋トレを5年以上続けていたがやめて思うこと
M J K T
最寄りの国道を書いてくスレ
田舎移住者で激安家賃で暮らしてる人！
中国人は太陽系外へ出てR
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼