14/05/07 22:57:09.28 VZywwylY
>>686
Splitで"/"で分割して、年の部分だけ頭に"20"でもくっつけて、
順番かえて"/"で結合するようなんじゃダメ？
697:デフォルトの名無しさん
14/05/08 00:00:54.73 UhAEWxzw
年が2000年代固定ってどうなのよ
ログで99年が2099年ってどこの未来から来た人ですか
698:デフォルトの名無しさん
14/05/08 00:46:43.35 E+ainyFV
それはシステムの特性によって切り分ければいい話だ
どのみち入力の年が2桁の時点で判断は必要になるわけで
699:デフォルトの名無しさん
14/05/08 01:06:45.17 8vH2dr8E
年数の二桁→四桁変換はOSの設定に任せとけば良い。
とか思ったけど、書式指定でDateに変換する方法が無い罠だった。
700:デフォルトの名無しさん
14/05/08 16:40:16.01 UhAEWxzw
スマートなやり方ってのがどんなのをご希望か知らんが
moto = "05/07/14"
Debug.Print "moto= " & moto
saki = DateSerial(Mid(moto, 7, 2), Mid(moto, 1, 2), Mid(moto, 4, 2))
Debug.Print Format(saki, "yyyy/mm/dd")
まあこんな感じか
701:デフォルトの名無しさん
14/05/08 18:22:31.60 uOW3clqT
どうやっても大差ない
moto = "05/07/14"
saki = DateValue(Right(moto, 2) & "/" & Left(moto, 5))
Debug.Print Format(saki, "yyyy/mm/dd")
702:デフォルトの名無しさん
14/05/09 10:23:43.29 QVvO9eKk
ノートン 問題 裁判
ノートン 問題 裁判
ノートン 問題 裁判
ノートン 問題 裁判
703:デフォルトの名無しさん
14/06/12 22:38:54.01 JGtl8L6J
日別の購入データの通し番号から、マスターを参照してジャンル分けして、ジャンルごとの合計金額を出したいです。
URLﾘﾝｸ(light.dotup.org)
↑
データはこのような画像の通りにシート３つに分かれて存在しています。
どのようなマクロを組めばいいかお教え願いたいです。
ジャンルごとに変数というものを持たないといけないのでしょうか？
実際は母が使うので、ボタン一つで出来るのだとありがたいのですが・・・
大変面倒な質問ですが、お願いします
具体的なコードを教えてください
本当に困っていますお願いします
704:デフォルトの名無しさん
14/06/12 22:54:39.12 LMWZ0+/Q
>>703
ピボットテーブル使うってのは？
答えに全くなってないわけだが、、、、
705:デフォルトの名無しさん
14/06/12 22:55:17.66 JGtl8L6J
>>704
ボタンひとつで計算してくれるようにしたいんですが
そのコードを教えてください
706:デフォルトの名無しさん
14/06/13 00:07:26.49 3uExzG0V
凄まじいマルチw
707:デフォルトの名無しさん
14/06/13 10:30:47.32 jJMpWNsU
>>705
コード作ってもいいが保守するのが大変。
まずは標準の機能でできないものかトライするよろし。
708:デフォルトの名無しさん
14/06/14 15:16:41.92 UnUM1hDE
こんにちは。セルの不一致部分を取り出して、１から並べ直し、
修正したデータを入力するというマクロを作成しているのですが、
同じ列で複数の間違いがあった場合、iを進めないように、コメントアウトしているif文を入れたのですが、
そうすると、２行目で 実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです
が表示されてしまいます。
列に間違いは２つ以上ないということで、コメントアウト部分を削除したままなら問題なく稼働するのですが、
この１文を入れるとどうしても進みません。
Arrayには、不一致部分のセルの座標が入っています。
全然ここから進まなくて困っていますので、どうかご教授お願い致します。
Do
ws.Cells(Array_l(j), Array_r(j)).Value = s1.Cells(i + 1, Array_r(j)).Value
'B1の数値を修正する
ws.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B1のセル背景を元に戻す
ws2.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B2のセル背景を元に戻す
'If Array_l(j) = Array_l(j + 1) Then
i = i - 1
'End If
j = j + 1
i = i + 1
If Array_l(i) = Empty Then Exit Do
Loop
709:デフォルトの名無しさん
14/06/14 15:23:57.74 UnUM1hDE
コメントアウトしている部分は
i=i-1
の部分です 'つけ忘れです、すみません。
710:デフォルトの名無しさん
14/06/14 16:30:49.01 Je/qq0DA
>>708
省略してる部分が多すぎて何がやりたいかわからん
ステップ実行するかなんかでロジック追ってみたら
昔ならこれフロー書いてみろとか言われるんだろうな
しかし、変数名って大事だなと思うわ
711:デフォルトの名無しさん
14/06/14 17:00:57.85 UnUM1hDE
>>710
返信ありがとうございます
iを調節するIF文を入れるとなぜか
s1.Cells(i + 1, Array_r(j)).Value にエラーが出るんです。
s1.Cells( 2 , 4 ).Value
という風に変えてもエラーが出るんです。
IF文を消せば消えるんですが。
712:デフォルトの名無しさん
14/06/14 17:23:19.85 UnUM1hDE
事故解決できました！ありがとうございました！
713:デフォルトの名無しさん
14/06/14 22:49:14.29 jhtRx4NU
KING SOFTのVBAは完全互換ですか？
714:デフォルトの名無しさん
14/06/15 06:28:01.21 sZLgElUH
>>713
何と？
715:デフォルトの名無しさん
14/06/15 15:24:53.85 +yTvRbGG
まったく同じプログラムなのに保存したらファイルサイズが違った
これでは完全互換とは言えない
716:デフォルトの名無しさん
14/06/17 03:20:53.05 HVt3rccc
>>715
エクセルでブックを別PCにコピーして開き、
何もせずにそのまま保存してもファイルサイズが変わることがある