018199

このフォームからは投稿できません。
name
e-mail
url
subject
comment
EXCELの井戸

1: エンドミル加工ピッチ速算グラフ (0) / 2: 迷路を作るEXCELブック (3) / 3: CAMWEB画像サイズ変更マクロ (1) / 4: EXCEL VBA カラーINDEX (0) / 5: スキャナーの件ですが (9) / 6: 有難う御座いました。教えてください (1) / 7: 教えてください (1) / 8: 7.8年ぶりにVBAで組んでみました (0) / 9: 有難うございました。 (0) / 10: 教えてください。 (2) / 11: 無題 (0) / 12: 教えてください (2) / 13: 頑張ります (1) / 14: スクロールしない ボタンの設置 (0) / 15: 岡部先生のEXCEL版複式簿記 (0) / 16: Open Officeの紹介 (1) / 17: 無題 (0) /



◆ エンドミル加工ピッチ速算グラフ 投稿者:Maniac  引用する 
マクロを使っています。
 計算の間違いがあればご指摘下さい。


添付:51.zip (11kB)

2009/08/10(Mon) 11:29:48 [ No.51 ]
投稿者  削除キー

◆ 迷路を作るEXCELブック 投稿者:Maniac  引用する 
excelマクロの練習と、遊びを兼ねて
迷路を作るexcelブックを作ってみました。


添付:47.zip (21kB)

2009/05/07(Thu) 18:11:53 [ No.47 ]
投稿者  削除キー
◇ Re: 迷路を作るEXCELブック 投稿者:Maniac  引用する 
space-EのFDILの迷路を作成出来るマクロファイルを
出力するバージョンを作成してみました。

マクロの出力先は固定で
 "D:\HZS\Modeler\data\mac\mac_user\MyMeiro.mac"
になっています、
変更したいときは。標準モジュールの共通変数の所を
書き換えて下さい。


添付:48.zip (24kB)

2009/05/15(Fri) 12:35:47 [ No.48 ]
投稿者  削除キー
◇ Re: 迷路を作るEXCELブック 投稿者:Maniac  引用する 
実行例

2009/05/15(Fri) 12:37:17 [ No.49 ]
◇ Re: 迷路を作るEXCELブック 投稿者:Maniac  引用する 
今度は、迷路データをSTLファイルとして作成する版を作ってみました。

添付:50.zip (23kB)

2009/06/18(Thu) 15:09:38 [ No.50 ]
投稿者  削除キー

◆ CAMWEB画像サイズ変更マクロ 投稿者:kantoku  引用する 
V5CAMのCAMWEBで吐き出した、ファイルのソース内の「designmodelimg」の名称の
画像サイズを300X300に強制的に書き換えます。

テスト不十分なのでバックアップを取る等、注意してください。

2009/02/12(Thu) 17:36:07 [ No.45 ]
投稿者  削除キー
◇ Re: CAMWEB画像サイズ変更マクロ 投稿者:kantoku  引用する 
知識不足による、重大ミスの修正と
使い勝手を向上させるための修正をしました。

相変わらずテスト不足なので注意してください。
著作権は放棄します。


添付:46.zip (20kB)

2009/02/17(Tue) 13:09:10 [ No.46 ]
投稿者  削除キー

◆ EXCEL VBA カラーINDEX 投稿者:Maniac ホームページ  引用する 

2008/08/31(Sun) 18:02:30 [ No.44 ]
投稿者  削除キー

◆ スキャナーの件ですが 投稿者:北條  引用する 
様子が判らないのでキャノンの安い(10000円程)の
ものを購入しましたが文字の認識が旨くいきません。
販売店ではどの機種でも大丈夫とのことでしたが、奥深い
ところはわからないようでした。
Maniacさんはどのようなものを使用していますか?
同じ内容の質問を同じコーナーに書き込みたいのですがおしえてください。
宜しくおねがいします。

2006/10/09(Mon) 18:09:14 [ No.23 ]
投稿者  削除キー
◇ 返信1 投稿者:Maniac  引用する 
>同じ内容の質問を同じコーナーに書き込みたいのですがおしえてください。

一行目(タイトルのある行)の右方の『返信』の文字をクリック
して下さい。
これで、同じ枠内での返信が出来ます。


2006/10/12(Thu) 09:41 [ No.26 ]
◇ 返信2 投稿者:Maniac  引用する 
>Maniacさんはどのようなものを使用していますか?
私の使っているのは、2〜3年前のキャノン製です、
USB接続の安価なものです、北條さんのとあまり
変らないと思います。

>文字の認識が旨くいきません。

濃淡の問題で、写りが悪いとゆうだけの話ではなく?

ひょっとして、OCRソフト(文字認識ソフト)とかで
文字(文章)の読み取りをしようとしていますか?

2006/10/12(Thu) 09:40 [ No.27 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:北條  引用する 
スキャナーについていた文字読み取りソフトを使用しました
無理でしょうか?

2006/10/13(Fri) 18:54 [ No.28 ]
投稿者  削除キー
◇ OCRソフト(文字認識ソフト)? 投稿者:Maniac  引用する 
OCRソフト(文字認識ソフト)ですか。

わたしも とんと経験不足でわかりませんが
名詞の読み取りとかで、一般的に広まっているものもありますよね

プリンタで印字した文字とかならば、そこそこの識別率もあるかも
その前に整理して考えると
@スキャナーのスキャンの状態はいいのか
A元の原稿に擦れや不鮮明な部分がないか
BOCRのソフト自体の性能は?

Bについては、工夫のしようもないでしょうが、
@、Aについては、解像度や、コントラストとかまだまだ
工夫の余地があるのではないでしょうか。

ところで、スキャンしたものをその画像のまま使うと
ゆうのは考えられないのですか?

2006/10/16(Mon) 13:57 [ No.29 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:北條  引用する 
エクセルにスキャンした文字の画像を取り込んで色々と
処理をすることは可能でしょうか?
宜しくお願いします。(^^;)

2006/10/18(Wed) 15:16 [ No.30 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:Maniac  引用する 
>色々と
ですか(^^;)

張り付けて、サイズを変えたり、配置を換えたり
とかは出来そうにおもいますけど、

2006/10/18(Wed) 20:30 [ No.31 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:北條  引用する 
エクセル上でスキャンした図面の図番から記録した
価格等拾い出して納品書に記入するにはやはり文字
に変換しないと無理じゃないでしょうか?
(^^;)

2006/10/21(Sat) 11:05 [ No.32 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:Maniac  引用する 
うわー(+_+)価格の読み取りですか?、図番の読み取り?
それはハードルが高いと思いますよ。

0と6とか、2と7とか、まあ桁数の読み間違いの
可能性は少ないかもしれませんが、
それでも、手描き文字となるとどうでしょう、

それより、伝票内の、単価の枠や個数の枠とか
位置指定して、読みとるとなると
スキャナーの付属ソフトの能力を超えるのでは
ないでしょうか?

業務用の専用ソフトで考えると、マークシートの読み取り
装置とかが思いつきますが、
一般向け使用可能な高機能なOCRソフトって
どうなのかな?
ビッグサイトでやるようなOA機器関係の展示会でも
あれば、探せるかもですね。

2006/10/21(Sat) 15:56 [ No.33 ]
投稿者  削除キー
◇ Re: スキャナーの件ですが 投稿者:北條  引用する 
色々考えて見ましたが、どうも図番の下4桁ぐらいを記入して
図面番号の全てと名称、価格、を拾い出して納品書に記入
する方法で作るのがいいような気がしてきました、
これでちょっとやってみます。
有難うございました。

2006/10/24(Tue) 12:09 [ No.34 ]
投稿者  削除キー

◆ 有難う御座いました。教えてください 投稿者:北條  引用する 
余りにも初歩的質問で失礼しました、少しずつ確実に覚えたいので宜しくおねがいします。
又ひとつ教えたください、納品を書記入するのに製作図面からスキャナーで図番、名称等書き込みたいのですがどのような機種が良いのでしょうか?
価格は自動記入するようにかんがえています。
今度はこれを作ろうと思っています、宜しくおねがいします。

2006/10/05(Thu) 17:48 [ No.21 ]
投稿者  削除キー
◇ Re: 有難う御座いました。教えてください 投稿者:Maniac  引用する 
スキャナーですか

CANONあたりは、プリンタに付属の機能として
スキャナがついていたりしますが、
あれは、A4の1枚紙じゃないとどうですかね、

A4に限っての話なら 最近は、インクジェットプリンタの
発展型としての、複合機(カラーCOPY+プリンタ)
が各社から発売されていますね

図面で仕事をしていると、最低でもA3のCOPY&FAX機が必要ではありますが、

価格的には、図面表題欄のスキャン専用として購入することも
無理な値段ではないかも

2006/10/05(Thu) 20:41 [ No.22 ]
投稿者  削除キー

◆ 教えてください 投稿者:北條  引用する 
vba の記述の中で ( ) " " , ' . & 等有りますが使用方法
内容等教えてください。

ファイル>17-0.1zh 見せていただきました。
また勉強することが増えました。
有難うございます。(^^;)

2006/09/24(Sun) 09:06 [ No.18 ]
投稿者  削除キー
◇ Re: 教えてください 投稿者:Maniac  引用する 
北條さんへ、

●()
 Keisann(A,B) とかだったら、サブプログラムや関数に引数
 (パラメータ/計算材料)を渡すのに使用しているのだと思います。

●""
 "テキスト"、"文章"
 文字列をくくる時に使うものですね。
 ちなみに、""とした場合には、前後の""の中のテキストが
 空(長さ0、空っぽ)のケースとなります

●'
 『'』の文字以後は行末までを、コメントとしてみなします
 プログラムの内容についての説明に使うことが多いです。


●''
 'A'、'a'
 文字(文字変数)をくくる時に使うものですね。

●&
 なんでしょう? 論理演算子
 Gコードのマクロでも論理演算(IF文とか)は使いますよね
 &に相当するGコードのマクロでの論理演子ってなかったでしょうか?

今、EXCELの入っていないPCから返信していますので
ちゃんと確認出来ていません。
少なくとも、前後を足して、
1行全文で、聞いて頂いた方がよいでしょう、

2006/10/03(Tue) 21:46 [ No.20 ]
投稿者  削除キー

◆ 7.8年ぶりにVBAで組んでみました 投稿者:kantoku  引用する 
恥を忍んでUPして見ます

自分が使おうと思っていますので、他人には
あまり使い道がないかとは思います


内容は、T,F,S,深さと穴座標を指定し、
穴明パスを作ります

Z=0は材料表面とし
イニシャル点30mm
R点5mm
固定サイクルはG82のみ
切削は油ではなく、エアーです


なるべくコメントは付けるようにしましたが、
不足気味かもしれません

責任は持ちませんので著作権は放棄します
ご自由に改造してください


添付:17.lzh (18kB)

2006/09/19(Tue) 10:25 [ No.17 ]
投稿者  削除キー

◆ 有難うございました。 投稿者:北條  引用する 
条件抽出の不明部分の説明有難う御座いました。

2006/09/16(Sat) 15:49 [ No.16 ]
投稿者  削除キー

◆ 教えてください。 投稿者:北條  引用する 
(;_;)
Sub 条件抽出1()
Dim 抽出セル As Range
Dim データセル As Range
Set 抽出セル = Sheets("a.b.c").Range("A1")
Set データセル = Sheets("a.b.c").Range("A21")
i = 1
j = 1
Do
If ("" = 抽出セル.Offset(j, 0).Value) Then
Exit Do
End If
Do
If ("" = データセル.Offset(i, 0).Value) Then
Exit Do
End If
If (抽出セル.Offset(j, 0).Value = データセル.Offset(i, 0).Value) Then
Dim aaa As String........この部分わかりません、特にaaa 教えてください。
Call 一致データのコピー1(データセル.Offset(i, 0), 抽出セル.Offset(j, 0))
End If
i = i + 1
Loop While i < 150

i = 1
j = j + 1
Loop While j < 19
End Sub

2006/09/14(Thu) 20:51 [ No.13 ]
投稿者  削除キー
◇ Re: 教えてください。 投稿者:kantoku  引用する 
恐らく、何かの一部分を切り出したものですね
「if」や「Do-Loop」はタブキー等で段落をつけた方が
理解しやすいです こんな感じです

************
Sub 条件抽出1()

Dim 抽出セル As Range
Dim データセル As Range

Set 抽出セル = Sheets("a.b.c").Range("A1")
Set データセル = Sheets("a.b.c").Range("A21")

i = 1
j = 1

Do
httpIf ("" = 抽出セル.Offset(j, 0).Value) Then
httphttpExit Do
httpEnd If

httpDo
httphttpIf ("" = データセル.Offset(i, 0).Value) Then
httphttphttpExit Do
httphttpEnd If

httphttpIf (抽出セル.Offset(j, 0).Value = データセル.Offset(i, 0).Value) Then
httphttphttpDim aaa As String........この部分わかりません、特にaaa 教えてください。
httphttphttpCall 一致データのコピー1(データセル.Offset(i, 0), 抽出セル.Offset(j, 0))
httphttpEnd If

httphttpi = i + 1
httpLoop While i < 150

httpi = 1
httpj = j + 1
Loop While j < 19

End Sub
**********

「Dim」は変数の宣言です
http://www2s.biglobe.ne.jp/~iryo/vba/VBA04.html

「aaa」はコードを作った方が適当につけた名前ですので
深い意味はないと思います

が、通常変数の宣言は、本来各コード先頭付近で行うほうが
望ましいと思うのですが、この例題は途中で行われているため
少しおかしいです
その上、宣言した変数「aaa」を使用しないまま終わっています
ので、全く無意味なもののように感じます

推測ですが、コードを作った方がバグ取り用に使っていた
変数で、その後消し忘れたと思うのですが、他にわかる方
いらっしゃいますか?

2006/09/15(Fri) 00:19 [ No.14 ]
投稿者  削除キー
◇ Re: 教えてください。 投稿者:kantoku  引用する 
あーすいません

段落付けた分が全部詰まってしまいましたね
失礼しました

2006/09/15(Fri) 00:20 [ No.15 ]
投稿者  削除キー

◆ 無題 投稿者:  引用する 
(^_^)KANTOKUさん有難う御座いました。
まだまだ質問が山ほどあります、宜しくお願いします。

2006/09/14(Thu) 19:24 [ No.12 ]
投稿者  削除キー

◆ 教えてください 投稿者:北條  引用する 
Dim rowpos As Integer
Dim colpos As Integer
Dim num As Integer

rowpos = 2
colpos = 1

Do
If Cells(rowpos, colpos) = "" Then
Exit Do
End If
rowpos = rowpos + 1
Loop While num > -1....この部分解説お願いいたします。


Cells(rowpos, colpos).Select
(;_;)

2006/09/03(Sun) 18:09 [ No.9 ]
投稿者  削除キー
◇ Re: 教えてください 投稿者:kantoku  引用する 
誰も書かないようなので

「Loop While num > -1」
num が -1 以上ならDoに戻ると言うことです
Do-Loop内を最低1回は処理します

http://www.geocities.jp/cbc_vbnet/kisuhen/loop.html

実際は
「If Cells(rowpos, colpos) = "" Then
 Exit Do
 End If」
で空のセルを見つけ出してLoopを抜けていますね

2006/09/08(Fri) 08:46 [ No.10 ]
投稿者  削除キー
◇ 間違えていました 投稿者:kantoku  引用する 

誤)num が -1 以上ならDoに戻ると言うことです

正)num が -1 を超えているならDoに戻ると言うことです

2006/09/08(Fri) 18:40 [ No.11 ]
投稿者  削除キー

◆ 頑張ります 投稿者:北條  引用する 
(+_+)VBAをもう一度勉強しなおす事にしました。
 北條

2006/08/19(Sat) 17:41 [ No.7 ]
投稿者  削除キー
◇ Re: 頑張ります 投稿者:Maniac  引用する 
北條さんへ。

VBAそのものの文法や約束事はそれほど多くはないと思うんです。
厄介なのは、EXCELシートの関係の操作や、プロパティが
やたら細かくて 膨大にありますし
階層的に、長々した記述になるために、 しばしば
自分のプログラムでさえ、構造が把握しにくいことですか?

EXCEL自習者向けのHPは本当に、山のようにあって、
私も、何を参考にするのがよいのか、戸惑うばかりですが
http://excelfactory.net/excelboard/
このあたりから、探してみたらいかがでしょうか?

2006/08/20(Sun) 06:34 [ No.8 ]
投稿者  削除キー

◆ スクロールしない ボタンの設置 投稿者:Maniac  引用する 
スクロールしない マクロボタンの設置って
出来ないものでしょうか?

縦にながーい、データ入力したときにマクロ起動のボタンが
シートと一緒にスクロールしてしまうと、
ボタンを使いたいときに、シートの先頭に戻るのが面倒なんですね。

ウインドウ枠を固定して、1〜2行あたりにボタンを設置する
方法も思いつきますが、
この『ウインドウ枠を固定』は、『ウインドウの分割』とは
両立しなくて、
私の場合には、『ウインドウの分割』の方が優先します、

スクロールしても、シートウインドウの中で位置を保つ
方法がありますかね。

2006/08/06(Sun) 15:10 [ No.6 ]
投稿者  削除キー

◆ 岡部先生のEXCEL版複式簿記 投稿者:Maniac  引用する 
私は自社の経理に岡部先生のEXCEL版複式簿記を使っています

私と同様に、会計士(経理士)を頼まずに経理&決算をしていて、
何とか、簿記をパソコン化したい、
特に、自営業や零細企業で、外部に依頼する規模で無いと
お考えの会社には、うってつけのソフトだと思います。

しいて言えば、EXCELの使いこなしの可否がハードルに
なるかと思います。

2006/08/06(Sun) 14:55 [ No.5 ]
投稿者  削除キー

◆ Open Officeの紹介 投稿者:Maniac  引用する 
Open Officeの表計算ソフトは
こんな感じ、
ちゃんと*.xlsファイルの読書
が出来ます。
操作性とか微妙に違いますが、
表計算のみの利用(マクロを
使わない)なら、全く問題
なさそうです。

全てのPCにMSOfficeを
導入するのは費用が大変ですから
試してみる価値があると思います、

マクロは、VBの筈はありませんから、
JAVAあたりかなと思うのですが
まだ調べていません。


2006/08/05(Sat) 17:03 [ No.3 ]
◇ マクロは、Basic 投稿者:Maniac  引用する 
改めて確認しましたら、マクロはBasicでした(^^;)

ほかにもJAVA言語もあるようですが、
Basicとなると、MSExcelからの移植の
ハードルもぐっと低くなりますね。


2006/08/06(Sun) 14:28 [ No.4 ]

◆ 無題 投稿者:Maniac  引用する 
(^^)北條さん、
質問よろしく。

2006/04/28(Fri) 18:10 [ No.1 ]
投稿者  削除キー

処理 記事No 削除キー

- Joyful Note Antispam Version -